A216423 Numbers k such that 4^k + k^4 + 1 is prime.
0, 6, 12, 3804, 8346, 15528, 147036
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[0, 5000], PrimeQ[4^# + #^4 + 1] &]
-
PARI
is(n)=ispseudoprime(4^n+n^4+1) \\ Charles R Greathouse IV, Jun 06 2017
Extensions
a(5)-a(7) from Robert Price, Apr 29 2014
Comments