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

Author

David W. Wilson

Keywords

• nonn

Links

• Robert Price, Table of n, a(n) for n = 1..100
• Index entries for sequences related to sums of squares

Crossrefs

Cf. A025290, A025297, A025299, A025335.

Programs

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 *)