A025346 - OEIS

%I #14 Aug 24 2017 13:44:19

%S 446,614,621,626,629,686,701,710,749,770,789,810,869,914,929,945,1022,

%T 1025,1029,1041,1053,1085,1091,1097,1125,1146,1193,1221,1242,1245,

%U 1250,1253,1269,1277,1289,1329,1334,1379,1409,1410,1418,1426,1430,1433,1434

%N Numbers that are the sum of 3 distinct nonzero squares in exactly 8 ways.

%H Vojtech Strnad, <a href="/A025346/b025346.txt">Table of n, a(n) for n = 1..1000</a>

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

%t Select[Range[1500], Count[Union /@ PowersRepresentations[#, 3, 2], _?(And[FreeQ[#, 0], Length@ # == 3] &)] == 8 &] (* _Michael De Vlieger_, Aug 20 2017 *)

%K nonn

%O 1,1

%A _David W. Wilson_