A243934 Numbers k such that 6^k + k^6 + 1 is prime.
0, 2, 4, 14, 22, 26, 36, 216, 354, 874, 1018, 2798, 6116, 6574, 6922, 8090, 8398, 12866, 20816, 54810
Offset: 1
Programs
-
Mathematica
Select[Range[0, 1000], PrimeQ[6^# + #^6 + 1] &]
-
PARI
is(n)=ispseudoprime(6^n+n^6+1) \\ Charles R Greathouse IV, Jun 13 2017
Extensions
a(19) from Vaclav Kotesovec, Jun 16 2014
a(20) from Michael S. Branicky, Oct 12 2024