A334113 Positive numbers not of the form 4*x^4 + y*(y+1)/2 + z*(z+1)/2, where x,y,z are nonnegative integers.
23, 44, 54, 63, 117, 138, 149, 162, 180, 188, 243, 251, 261, 270, 287, 294, 398, 401, 458, 512, 611, 657, 684, 693, 734, 797, 842, 863, 914, 932, 936, 945, 987, 1029, 1047, 1098, 1323, 1401, 1449, 1472, 1484, 1494, 1574, 1608, 1637, 1769, 1792, 1799, 1823, 1839, 1902, 1995
Offset: 1
Keywords
Links
- Zhi-Wei Sun, Table of n, a(n) for n = 1..602
- Zhi-Wei Sun, Mixed sums of squares and triangular numbers, Acta Arith. 127(2007), 103-113.
Programs
-
Mathematica
TQ[n_]:=TQ[n]=IntegerQ[Sqrt[8n+1]]; tab={};Do[Do[If[TQ[n-4x^4-y(y+1)/2],Goto[aa]],{x,0,(n/4)^(1/4)},{y,0,(Sqrt[4(n-4x^4)+1]-1)/2}];tab=Append[tab,n];Label[aa],{n,0,2000}];Print[tab]
Comments