Table[k = 0; While[p = n + k^2; ! PrimeQ[p], k++]; p, {n, 100}] (* _T. D. Noe, _, Apr 01 2011 *)
Table[k = 0; While[p = n + k^2; ! PrimeQ[p], k++]; p, {n, 100}] (* _T. D. Noe, _, Apr 01 2011 *)
_Henry Bottomley (se16(AT)btinternet.com), _, Jul 05 2000
proposed
approved
Smallest prime which can be written as k^2 + n for k >= 0.
a(8)=17 because 17=3^2+8.
Table[k = 0; While[p = n + k^2; ! PrimeQ[p], k++]; p, {n, 100}] (* T. D. Noe, Apr 01 2011 *)
Corrected Example -- corrected by Harvey P. Dale, Apr 1 01 2011.
reviewed
proposed
proposed
reviewed
a(8)=17)=8 because 17=3^2+8
Corrected Example -- Harvey P. Dale, Apr 1 2011.
approved
proposed
nonn,new
nonn
Henry Bottomley (se16@(AT)btinternet.com), Jul 05 2000
Smallest prime which can be written as k^2+n.
2, 2, 3, 5, 5, 7, 7, 17, 13, 11, 11, 13, 13, 23, 19, 17, 17, 19, 19, 29, 37, 23, 23, 73, 29, 107, 31, 29, 29, 31, 31, 41, 37, 43, 71, 37, 37, 47, 43, 41, 41, 43, 43, 53, 61, 47, 47, 73, 53, 59, 67, 53, 53, 79, 59, 137, 61, 59, 59, 61, 61, 71, 67, 73, 101, 67, 67, 149, 73, 71
1,1
a(17)=8 because 17=3^2+8
nonn
Henry Bottomley (se16@btinternet.com), Jul 05 2000
approved