%I #24 Aug 05 2015 17:39:58
%S 8929,45937,49256,50060,76204,76855,125708,127919,137050,137335,
%T 137944,147466,163822,193939,267131,295882,299977,312610,322255,
%U 322499,322988,370763,403085,436060,458119,571253,574597,601558,610697,626978,627820,630109,647039
%N Numbers k such that the Phi_3(10^10000+k) is prime, where Phi is a cyclic polynomial.
%C a(53) > 10^6.
%H Robert Price, <a href="/A259631/b259631.txt">Table of n, a(n) for n = 1..52</a>
%t Select[Range[1, 10^6], PrimeQ[(10^10000 + #)^2 + (10^10000 + #) + 1] &]
%o (PARI) is(k)=ispseudoprime(subst('x^2+'x+1,'x,10^10000+k)) \\ _Charles R Greathouse IV_, Aug 05 2015
%o (PFGW) ABC2 (10^10000+$a)^2 + (10^10000+$a) + 1
%o a: from 1 to 10000
%o _Charles R Greathouse IV_, Aug 05 2015
%Y Cf. A002061, A002383, A002384.
%K nonn
%O 1,1
%A _Robert Price_, Aug 05 2015
|