|
%I #11 Mar 09 2022 10:51:24
%S 6,22,24,38,54,70,86,88,96,102,118,134,150,152,166,182,198,214,216,
%T 230,246,262,278,280,294,310,326,342,344,352,358,374,384,390,406,408,
%U 422,438,454,470,472,486,502,518,534,536,550,566,582,598
%N Numbers of the form 2^(2i+1)*(8*j+3).
%H L. J. Mordell, <a href="https://doi.org/10.1093/qmath/os-1.1.276">A new Waring's problem with squares of linear forms</a>, Quart. J. Math., 1 (1930), 276-288 (see p. 283).
%t f[upto_]:=Module[{maxi=Floor[(Log[2,upto]-1)/2],maxj= Floor[(upto-3)/8],s},s=2^(2First[#]+1) (8Last[#]+3)&/@ Tuples[{Range[0,maxi], Range[0,maxj]}];Union[Select[s,#<=upto&]]]; f[700] (* _Harvey P. Dale_, Mar 23 2011 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Jun 01 2000
|
