Størmer Number

Author

Eric W. Weisstein
October 11, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/StormerNumber.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/StormerNumber.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Code

StormerNumberQ[n_]:=GreatestPrimeFactor[n^2+1]≥2n

Enumeration

stormer=Select[Range[100],StormerNumberQ]

GreatestPrimeFactor[#^2+1]&/@stormer