

A091101


Number of firstquadrant Gaussian primes whose norm is less than 10^n.


2




OFFSET

1,1


LINKS



FORMULA



MATHEMATICA

Table[lim2=10^n; lim1=Floor[Sqrt[lim2]]; cnt=0; Do[If[x^2+y^2<lim2&&PrimeQ[x+I y, GaussianIntegers>True], cnt++ ], {x, 0, lim1}, {y, 0, lim1}]; cnt, {n, 6}]


CROSSREFS

Cf. A091098 (number of primes of the form 4k+1 less than 10^n), A091099 (number of primes of the form 4k+3 less than 10^n), A091100, A091102.


KEYWORD

nonn,more


AUTHOR



EXTENSIONS



STATUS

approved



