OFFSET
1,1
MATHEMATICA
Select[Range[0, 10000, 2], PrimeQ[(5^# + #^4)] &]
PROG
(Magma) /* The code gives only the terms up to 442: */ [n: n in [0..1000 by 2] | IsPrime(5^n + n^4)];
(PARI) is(n)=ispseudoprime(5^n+n^4) \\ Charles R Greathouse IV, Jul 01 2013
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Nov 26 2012
EXTENSIONS
a(15) from Michael S. Branicky, Oct 09 2024
STATUS
approved