OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Landau-Ramanujan Constant
EXAMPLE
8 = 2^2 + 2^2, 13 = 2^2 + 3^2, ...
MAPLE
filter:= n -> ormap(t -> subs(t, x)>1 and subs(t, y) > 1, [isolve(x^2 + y^2 = n)]):
select(filter, [$0..200]); # Robert Israel, Mar 06 2017
MATHEMATICA
r[n_] := Reduce[2 <= x <= y && n == x^2 + y^2, {x, y}, Integers]; Select[Range[200], r[#] =!= False &] (* Jean-François Alcover, Oct 29 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Jul 06 2003
EXTENSIONS
Offset changed by Robert Israel, Mar 06 2017
STATUS
approved