A025373 Numbers that are the sum of 4 nonzero squares in 8 or more ways.
130, 138, 150, 154, 162, 175, 178, 180, 186, 195, 196, 198, 202, 207, 210, 213, 214, 217, 218, 220, 222, 223, 225, 226, 228, 230, 231, 234, 235, 237, 238, 242, 243, 244, 246, 247, 250, 252, 253, 255, 258, 259, 262, 265, 266, 267, 268, 270, 271, 273, 274, 275, 276, 277
Offset: 1
Keywords
Programs
-
Mathematica
selQ[n_] := Length[ Select[ PowersRepresentations[n, 4, 2], Times @@ # != 0 &]] >= 8; Select[ Range[300], selQ] (* Jean-François Alcover, Oct 03 2013 *)
Formula
{n: A025428(n) >= 8}. - R. J. Mathar, Jun 15 2018