OFFSET
1,1
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..1000
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 545
MATHEMATICA
Select[Range[0, 48678, 2], PrimeQ[#^6 + 545] &] (* Arkadiusz Wesolowski, Mar 05 2011 *)
PROG
(Magma) [n : n in [0..48678 by 2] | IsPrime(n^6+545)]; // Arkadiusz Wesolowski, Mar 05 2011
(PARI) forstep(n=0, 48678, 2, if(isprime(n^6+545), print1(n, ", "))); \\ Arkadiusz Wesolowski, Mar 05 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Aug 01 2009
STATUS
approved