Search: id:A094942
Results 1-1 of 1 results found.

%I A094942
%S A094942 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,
%T A094942 46,48,52,56,58,64,67,70,76,78,80,84,88,91,93,96,115,120,128,133,140,
%U A094942 142,148,160,163,168,172,176,184,190,192,208,224,232,235,253,256,268
%N A094942 Numbers having a unique partition into three squares.
%C A094942 Note that squares are allowed to be zero.
%t A094942 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]]
%Y A094942 Cf. A025321 (numbers having a unique partition into three positive squares), 
               A094739 (primitive n having a unique partition into three squares).
%Y A094942 Sequence in context: A039083 A034047 A047424 this_sequence A102705 A088232 
               A070994
%Y A094942 Adjacent sequences: A094939 A094940 A094941 this_sequence A094943 A094944 
               A094945
%K A094942 nonn
%O A094942 1,2
%A A094942 T. D. Noe (noe(AT)sspectra.com), May 24 2004

Search completed in 0.001 seconds