A025298 Numbers that are the sum of 2 nonzero squares in 7 or more ways.

27625, 32045, 40885, 45305, 47125, 55250, 58565, 60125, 61625, 64090, 66625, 67405, 69745, 71825, 77285, 78625, 80665, 81770, 86125, 87125, 90610, 91205, 93925, 94250, 98345, 98605, 99125, 99905, 101065, 105625, 107185, 110500, 111605, 112625

Offset

1,1

Links

Robert Price, Table of n, a(n) for n = 1..100

Index entries for sequences related to sums of squares

Mathematica

Parallelize[Select[Range[120000], Length[PowersRepresentations[#, 2, 2]]>6&]]  (* Harvey P. Dale, Feb 19 2011 *)
nn = 112625; t = Table[0, {nn}]; lim = Floor[Sqrt[nn - 1]]; Do[num = i^2 + j^2; If[num <= nn, t[[num]]++], {i, lim}, {j, i}]; Flatten[Position[t, _?(# >= 7 &)]] (* T. D. Noe, Apr 07 2011 *)

Crossrefs

Cf. A025290, A025297, A025299, A025335.

Sequence in context: A224110 A251958 A366491 * A025317 A025299 A025318

Adjacent sequences: A025295 A025296 A025297 * A025299 A025300 A025301

Keyword

nonn

Author

David W. Wilson

Status

approved