|
%I #9 Mar 18 2020 07:29:50
%S 7,26,42,49,116,130,149,159,190,277,289,295,296,310,330,334,365,386,
%T 389,406,411,419,471,492,505,541,590,602,632,687,690,704,727,770,771,
%U 804,826,844,872,882,929,949,961,1017,1082,1091,1135,1157,1160,1196,1232,1237
%N Numbers k for which k^15+k^14-1 is prime.
%H Amiram Eldar, <a href="/A125972/b125972.txt">Table of n, a(n) for n = 1..10000</a>
%t Do[If[PrimeQ[x^15 + x^14 - 1], Print[x]], {x, 1, 600}]
%o (PARI) is(n)=isprime(n^15+n^14-1) \\ _Charles R Greathouse IV_, May 15 2013
%Y Cf. A000040, A045546, A125881-A125885, A125965-A125973.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 14 2006
%E More terms from _Amiram Eldar_, Mar 18 2020
|
