|
| |
|
|
A025302
|
|
Numbers that are the sum of 2 distinct nonzero squares in exactly 1 way.
|
|
1
| |
|
|
5, 10, 13, 17, 20, 25, 26, 29, 34, 37, 40, 41, 45, 50, 52, 53, 58, 61, 68, 73, 74, 80, 82, 89, 90, 97, 100, 101, 104, 106, 109, 113, 116, 117, 122, 136, 137, 146, 148, 149, 153, 157, 160, 164, 169, 173, 178, 180, 181, 193, 194, 197, 200, 202, 208, 212, 218, 225, 226, 229
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Index entries for sequences related to sums of squares
|
|
|
MATHEMATICA
| nn = 229; 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, 1]] (* T. D. Noe, Apr 07 2011 *)
|
|
|
CROSSREFS
| Cf. A009000, A009003, A024507, A004431.
Sequence in context: A072284 A024507 A004431 * A055096 A132777 A191217
Adjacent sequences: A025299 A025300 A025301 * A025303 A025304 A025305
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net)
|
| |
|
|
