|
%I #11 Oct 23 2012 13:18:57
%S 1,4,10,26,68,175,461,1225,3349,9266,26516,76334,221763
%N Number of primes up to 10^n that are of the form (k-1)^2 + k^2.
%F a(n) = sum(A218207(k), k=1..n)
%t n = 0; cnt = 0; Table[While[n++; p = 2*n^2 - 2*n + 1; p < 10^e, If[PrimeQ[p], cnt++]]; n--; cnt, {e, 10}] (* _T. D. Noe_, Oct 23 2012 *)
%Y Cf. A027861, A027862, A218207, A218210, A218212.
%K nonn,base
%O 1,2
%A _Martin Renner_, Oct 23 2012
|
