OFFSET
1,2
MATHEMATICA
Select[Range[0, 1000], PrimeQ[6^# + #^6 + 1] &]
PROG
(PARI) is(n)=ispseudoprime(6^n+n^6+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Vaclav Kotesovec, Jun 15 2014
EXTENSIONS
a(19) from Vaclav Kotesovec, Jun 16 2014
a(20) from Michael S. Branicky, Oct 12 2024
STATUS
approved