[go: up one dir, main page]

login
A025306
Numbers that are the sum of 2 distinct nonzero squares in exactly 5 ways.
3
8125, 10625, 16250, 18125, 21250, 23125, 25625, 32500, 33125, 36250, 38125, 42500, 45625, 46250, 51250, 55625, 60625, 63125, 65000, 66250, 68125, 70625, 72500, 73125, 76250, 85000, 85625, 91250, 92500, 93125, 95625, 98125, 102500, 108125, 111250
OFFSET
1,1
MATHEMATICA
nn = 111250; 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, 5]] (* T. D. Noe, Apr 07 2011 *)
CROSSREFS
Sequence in context: A126602 A209845 A025288 * A151946 A229381 A147633
KEYWORD
nonn
STATUS
approved