A025376 - OEIS

%I #13 Jun 15 2018 05:32:11

%S 30,39,46,50,51,54,57,62,63,65,66,70,71,74,75,79,81,84,85,86,87,91,93,

%T 98,106,107,109,113,116,117,118,120,121,122,125,127,131,133,137,139,

%U 140,145,149,161,163,164,173,178,180,181,184,187,196,200,202,212,216,223,229,236

%N Numbers that are the sum of 4 distinct nonzero squares in exactly 1 way.

%H <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>

%F {n: A025443(n) = 1}. - _R. J. Mathar_, Jun 15 2018

%t With[{nn=60},Take[Union[Transpose[Select[Tally[Total/@Subsets[Range[nn]^2,{4}]], #[[2]]==1&]][[1]]],nn]] (* _Harvey P. Dale_, Mar 10 2015 *)

%K nonn

%O 1,1

%A _David W. Wilson_