|
|
A091101
|
|
Number of first-quadrant 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
|
|
|
|