[go: up one dir, main page]

login
A025308
Numbers that are the sum of 2 distinct nonzero squares in exactly 7 ways.
2
105625, 180625, 203125, 211250, 265625, 361250, 406250, 422500, 453125, 525625, 531250, 578125, 640625, 714025, 722500, 812500, 828125, 845000, 855625, 906250, 950625, 953125, 1050625, 1051250, 1062500, 1140625, 1156250, 1281250, 1390625
OFFSET
1,1
MATHEMATICA
nn = 1390625; 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, 7]] (* T. D. Noe, Apr 07 2011 *)
CROSSREFS
Sequence in context: A203822 A013889 A353553 * A025290 A242479 A252775
KEYWORD
nonn
STATUS
approved