1,1

Table of n, a(n) for n=1..14.

Select[Range[0, 10000, 2], PrimeQ[(5^# + #^4)] &]

(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

Cf. A182359, A059802.

Sequence in context: A189153 A194393 A119260 * A067732 A222712 A117912

Adjacent sequences: A219613 A219614 A219615 * A219617 A219618 A219619

nonn,more

Vincenzo Librandi, Nov 26 2012

approved