OFFSET
1,2
COMMENTS
Troupe (2020) proved that N(x), the number of terms not exceeding x, has an order of magnitude x/sqrt(x), i.e., there are two positive constants c1 and c2 such that c1*x/sqrt(x) < N(x) < c2*x/sqrt(x) for sufficiently large x.
All the primes are in this sequence since A001065(p) = 1 = 0^2 + 1^2 for a prime p.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Lee Troupe, Divisor sums representable as the sum of two squares, Proceedings of the American Mathematical Society, Vol. 148, No. 10 (2020), pp. 4189-4202.
MATHEMATICA
s[n_] := DivisorSigma[1, n] - n; Select[Range[100], SquaresR[2, s[#]] > 0 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 04 2021
STATUS
approved