|
%I #12 Mar 16 2017 04:00:40
%S 0,2,4,10,12,16,18,28,40,42,44,46,60,68,72,82,84,88,94,108,110,114,
%T 116,122,126,142,144,152,158,180,192,194,198,200,220,222,264,266,268,
%U 282,284,296,298,332,336,340,354,378,380,418,420,430,434,446,464,466,486
%N Numbers k such that k^2 + 13 is prime.
%H G. C. Greubel, <a href="/A113536/b113536.txt">Table of n, a(n) for n = 1..1000</a>
%e If n=40 then n^2 + 13 = 1613 (prime), so 40 is in the sequence.
%t With[{k=13}, Select[Range[1000], PrimeQ[ #^2+k]&]]
%o (PARI) is(n)=isprime(n^2+13) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Other cases: A005574 k=1, A067201 k=2, A049422 k=3, A007591 k=4, A078402 k=5, A114269-A114275 k=6-12.
%K nonn
%O 1,2
%A _Zak Seidov_, Jan 13 2006
%E Edited by _R. J. Mathar_, Aug 07 2008
|
