A085989 Numbers that can be expressed as a sum of two squares, each >=2.

8, 13, 18, 20, 25, 29, 32, 34, 40, 41, 45, 50, 52, 53, 58, 61, 65, 68, 72, 73, 74, 80, 85, 89, 90, 97, 98, 100, 104, 106, 109, 113, 116, 117, 125, 128, 130, 136, 137, 145, 146, 148, 149, 153, 157, 160, 162, 164, 169, 170, 173, 178, 180, 181, 185, 193, 194, 200

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

Cf. A001481.

Sequence in context: A348277 A337308 A014134 * A319879 A095097 A187227

Adjacent sequences: A085986 A085987 A085988 * A085990 A085991 A085992

Keyword

nonn

Author

Eric W. Weisstein, Jul 06 2003

Extensions

Offset changed by Robert Israel, Mar 06 2017

Status

approved