A243934 - OEIS

%I #15 Oct 12 2024 09:15:32

%S 0,2,4,14,22,26,36,216,354,874,1018,2798,6116,6574,6922,8090,8398,

%T 12866,20816,54810

%N Numbers k such that 6^k + k^6 + 1 is prime.

%t Select[Range[0, 1000], PrimeQ[6^# + #^6 + 1] &]

%o (PARI) is(n)=ispseudoprime(6^n+n^6+1) \\ _Charles R Greathouse IV_, Jun 13 2017

%Y Cf. A100357, A215441, A216423, A215442, A215444.

%K nonn,hard,more

%O 1,2

%A _Vaclav Kotesovec_, Jun 15 2014

%E a(19) from _Vaclav Kotesovec_, Jun 16 2014

%E a(20) from _Michael S. Branicky_, Oct 12 2024