OFFSET
1,1
FORMULA
{n: A025428(n) >= 8}. - R. J. Mathar, Jun 15 2018
MATHEMATICA
selQ[n_] := Length[ Select[ PowersRepresentations[n, 4, 2], Times @@ # != 0 &]] >= 8; Select[ Range[300], selQ] (* Jean-François Alcover, Oct 03 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved