Lucky Number of Euler

Author

Eric W. Weisstein
January 31, 2009

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PrimeNumbers/LuckyNumberofEuler.nb.

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

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

Table

Table[(n^2)-n+41,{n,40}]

PrimeQ[%]

Select[Range[2,1000],And@@PrimeQ[Table[(n^2)-n+#,{n,#-1}]]&]