|
Search: id:A094942
|
|
|
| A094942 |
|
Numbers having a unique partition into three squares. |
|
+0
3
|
|
| 1, 2, 3, 4, 5, 6, 8, 10, 11, 12, 13, 14, 16, 19, 20, 21, 22, 24, 30, 32, 35, 37, 40, 42, 43, 44, 46, 48, 52, 56, 58, 64, 67, 70, 76, 78, 80, 84, 88, 91, 93, 96, 115, 120, 128, 133, 140, 142, 148, 160, 163, 168, 172, 176, 184, 190, 192, 208, 224, 232, 235, 253, 256, 268
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Note that squares are allowed to be zero.
|
|
MATHEMATICA
|
lim=25; nLst=Table[0, {lim^2}]; Do[n=a^2+b^2+c^2; If[n>0 && n<lim^2, nLst[[n]]++ ], {a, 0, lim}, {b, a, Sqrt[lim^2-a^2]}, {c, b, Sqrt[lim^2-a^2-b^2]}]; Flatten[Position[nLst, 1]]
|
|
CROSSREFS
|
Cf. A025321 (numbers having a unique partition into three positive squares), A094739 (primitive n having a unique partition into three squares).
Sequence in context: A039083 A034047 A047424 this_sequence A102705 A088232 A070994
Adjacent sequences: A094939 A094940 A094941 this_sequence A094943 A094944 A094945
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), May 24 2004
|
|
|
Search completed in 0.002 seconds
|
