|
%I #21 Sep 27 2022 07:54:58
%S 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,20,22,23,25,26,27,29,30,
%T 31,32,34,35,36,37,38,40,41,42,43,44,45,47,48,49,50,51,52,53,55,56,57,
%U 58,59,64,66,68,69,70,71,74,76,77,78,79,80,83,87,88,89,90,91,92,94,97,98,99,102,106,107,108,113,114
%N Numbers k such that 4*k^2 + 4*k + 653 is a prime.
%H Vincenzo Librandi, <a href="/A188459/b188459.txt">Table of n, a(n) for n = 1..1001</a> [Offset shifted by _Georg Fischer_, Sep 27 2022]
%t Select[Range[0,150],PrimeQ[4#^2+4#+653]&] (* _Harvey P. Dale_, Apr 02 2011 *)
%o (Magma) [n: n in [0..250] | IsPrime(4*n^2+4*n+653)]; // _Vincenzo Librandi_, Apr 01 2011
%Y Cf. A145202 (the corresponding primes).
%K nonn,easy
%O 1,3
%A _Vincenzo Librandi_, Apr 01 2011
%E Offset changed to 1 by _Georg Fischer_, Sep 27 2022
|
