|
%I #9 Mar 18 2020 07:30:27
%S 38,47,51,91,102,139,150,203,207,212,218,225,237,245,263,269,278,280,
%T 283,297,300,302,303,337,357,367,370,382,404,405,408,411,425,452,456,
%U 472,496,509,514,595,605,619,626,630,670,693,707,714,735,771,773,799,854
%N Numbers k for which k^13+k^12-1 is prime.
%H Amiram Eldar, <a href="/A125970/b125970.txt">Table of n, a(n) for n = 1..10000</a>
%t Do[If[PrimeQ[x^13 + x^12 - 1], Print[x]], {x, 1, 600}]
%o (PARI) is(n)=isprime(n^13+n^12-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
|
