[go: up one dir, main page]

login
A025304
Numbers that are the sum of 2 distinct nonzero squares in exactly 3 ways.
4
325, 425, 650, 725, 845, 850, 925, 1025, 1300, 1325, 1445, 1450, 1525, 1690, 1700, 1825, 1850, 2050, 2225, 2425, 2525, 2600, 2650, 2725, 2825, 2873, 2890, 2900, 2925, 3050, 3125, 3380, 3400, 3425, 3650, 3700, 3725, 3757, 3825, 3925, 4100, 4205, 4325
OFFSET
1,1
MATHEMATICA
nn = 4325; 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, 3]] (* T. D. Noe, Apr 07 2011 *)
CROSSREFS
Sequence in context: A025294 A025313 A025286 * A351801 A160580 A158272
KEYWORD
nonn
STATUS
approved