|
%I #16 Aug 05 2021 07:27:38
%S 130,138,150,154,162,175,178,180,186,195,196,198,202,207,210,213,214,
%T 217,218,220,222,223,225,226,228,230,231,234,235,237,238,242,243,244,
%U 246,247,250,252,253,255,258,259,262,265,266,267,268,270,271,273,274,275,276,277
%N Numbers that are the sum of 4 nonzero squares in 8 or more ways.
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%F {n: A025428(n) >= 8}. - _R. J. Mathar_, Jun 15 2018
%t selQ[n_] := Length[ Select[ PowersRepresentations[n, 4, 2], Times @@ # != 0 &]] >= 8; Select[ Range[300], selQ] (* _Jean-François Alcover_, Oct 03 2013 *)
%Y Cf. A025336, A025364, A025372, A025374, A344801, A345152.
%K nonn
%O 1,1
%A _David W. Wilson_
|
