%I #10 Mar 18 2020 07:31:31
%S 2,4,12,17,27,39,45,46,72,94,105,106,122,126,147,149,151,156,160,161,
%T 166,169,171,172,192,194,204,205,209,230,235,242,252,260,264,266,276,
%U 280,285,306,309,319,330,335,357,371,387,400,402,411,422,439,442,451,459
%N Numbers k for which k^7+k^6-1 is prime.
%H Amiram Eldar, <a href="/A125885/b125885.txt">Table of n, a(n) for n = 1..10000</a>
%t Do[If[PrimeQ[x^7 + x^6 - 1], Print[x]], {x, 1, 200}]
%o (PARI) is(n)=isprime(n^7+n^6-1) \\ _Charles R Greathouse IV_, May 15 2013
%Y Cf. A000040, A045546, A125881, A125882, A125883, A125884.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 14 2006
%E More terms from _Amiram Eldar_, Mar 18 2020