

A300587


Real part of the nth Gaussian prime x + i*y, x >= y >= 0, ordered by norm x^2 + y^2.


4



1, 2, 3, 3, 4, 5, 6, 5, 7, 7, 6, 8, 8, 9, 10, 10, 8, 11, 11, 10, 11, 13, 10, 12, 14, 15, 13, 15, 16, 13, 14, 16, 17, 13, 14, 16, 18, 17, 19, 18, 17, 19, 20, 20, 15, 17, 20, 21, 19, 22, 20, 23, 21, 19, 20, 24, 23, 24, 18, 19, 25, 22, 25, 23, 26, 26, 22, 27, 26, 20
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

With the restriction Re(z) >= Im(z) >= 0 used here and in A239621, there is exactly one Gaussian prime z for each possible norm z^2 in A055025. Sequence A239397 lists both, (x, y) and (y, x), for each of these having x > y (i.e., except for x = y = 1).
The nice graph shows that the values are denser towards the upper bound a(n) <= sqrt(A055025(n)) ~ sqrt(2n log n) than to the lower bound sqrt(A055025(n)/2) ~ sqrt(n log n), while for the imaginary parts A300588, i.e., min(Re(z),Im(z)), the distribution looks rather uniform.


LINKS

M. F. Hasler, Table of n, a(n) for n = 1..10000


FORMULA

a(n) = A239621(2n1) = A239397(4n2) (= A239397(4n5) for n > 1).
a(n) = sqrt(A055025(n)  A300588(n)^2).


PROG

(PARI) c=1; for(n=1, oo, matsize(f=factor(n*I))[1]<=2 && vecsum(f[, 2])==2+(f[1, 1]==I) && !write("/tmp/b300587.txt", c" "max(real(f=f[3f[1, 2], 1]), imag(f))) && c++>1e4 && break) \\ Replace write("/tmp/b300587.txt", c" by print1(", to print the values.


CROSSREFS

Odd bisection of A239621. See A300588 for imaginary parts, A055025 for the norms.
Sequence in context: A185363 A103827 A094182 * A075699 A112330 A332682
Adjacent sequences: A300584 A300585 A300586 * A300588 A300589 A300590


KEYWORD

nonn,look


AUTHOR

M. F. Hasler, Mar 09 2018


STATUS

approved



