|
%I #15 Sep 08 2022 08:45:13
%S 0,4,14,26,40,124,130,136,194,224,250,254,364,376,410,430,464,494,536,
%T 560,604,620,640,656,724,730,794,836,1004,1010,1036,1064,1090,1144,
%U 1186,1300,1330,1430,1484,1486,1510,1514,1570,1580,1586,1606,1624,1774,1796,1834
%N Numbers n >= 0 such that Lehmer's polynomial 263*n^2+3 is prime.
%C All terms == 0, 4 or 6 (mod 10). - _Robert Israel_, Jan 15 2016
%H Robert Israel, <a href="/A094320/b094320.txt">Table of n, a(n) for n = 0..10000</a>
%p select(n -> isprime(263*n^2+3), 2*[$0..2000]); # _Robert Israel_, Jan 15 2016
%t Select[Range[0, 2000], PrimeQ[263 #^2 + 3] &] (* _Vincenzo Librandi_, Jan 14 2016 *)
%o (Magma) [n: n in [0..2*10^3] |IsPrime(263*n^2+3)]; // _Vincenzo Librandi_, Jan 14 2016
%o (PARI) isok(n) = isprime(263*n^2+3); \\ _Michel Marcus_, Jan 14 2016
%Y See A094319 for further information.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Jun 03 2004
|
