[go: up one dir, main page]

login
A025311
Numbers that are the sum of 2 distinct nonzero squares in exactly 10 ways.
4
138125, 235625, 276250, 300625, 308125, 333125, 393125, 430625, 435625, 471250, 495625, 552500, 563125, 593125, 601250, 616250, 648125, 666250, 670625, 723125, 743125, 775625, 786250, 788125, 820625, 861250, 871250, 885625, 918125, 942500
OFFSET
1,1
MATHEMATICA
nn = 942500; t = Table[0, {nn}]; lim = Floor[Sqrt[nn - 1]]; Do[num = i^2 + j^2; If[num <= nn, t[[num]]++], {i, lim}, {j, i - 1}]; Flatten[Position[t, 10]] (* T. D. Noe, Apr 07 2011 *)
CROSSREFS
Cf. A025293.
Sequence in context: A025301 A025320 A025293 * A081429 A236662 A251979
KEYWORD
nonn
STATUS
approved