|
%I #14 Jun 15 2018 05:33:17
%S 78,102,110,114,130,135,147,156,159,171,175,177,189,191,194,201,204,
%T 205,211,221,228,233,235,237,247,252,265,271,277,281,284,312,316,340,
%U 341,348,349,353,367,397,404,408,433,440,456,508,520,624,652,748,776,816,892,912
%N Numbers that are the sum of 4 distinct nonzero squares in exactly 3 ways.
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%F {n: A025443(n) = 3}. - _R. J. Mathar_, Jun 15 2018
%t With[{upto=950},Select[Union[Transpose[Select[Tally[Total/@ Subsets[ Range[ Ceiling[ Sqrt[upto-14]]]^2,{4}]],Last[#]==3&]][[1]]], #<=upto&]] (* _Harvey P. Dale_, Sep 08 2011 *)
%Y Cf. A025387.
%K nonn
%O 1,1
%A _David W. Wilson_
|
