A270706 Number of ordered ways to write n as x^2*T(x) + y^2 + T(z), where x, y and z are integers with x nonzero, y positive and z nonnegative, and T(m) denotes the triangular number m*(m+1)/2.
1, 2, 1, 2, 4, 2, 2, 4, 2, 3, 5, 2, 3, 4, 3, 6, 4, 2, 6, 5, 2, 4, 6, 2, 3, 7, 3, 5, 6, 4, 8, 5, 2, 5, 3, 5, 9, 7, 3, 5, 8, 3, 6, 5, 2, 8, 4, 2, 9, 6, 4, 7, 7, 4, 5, 7, 5, 9, 5, 3, 7, 4, 5, 12, 9, 4, 5, 8, 4, 6, 11, 3, 9, 5, 3, 10, 3, 4, 9, 6, 5, 11, 8, 5, 7, 9, 3, 5, 4, 1
Offset: 1
Keywords
Examples
a(1) = 1 since 1 = (-1)^2*T(-1) + 1^2 + T(0). a(3) = 1 since 3 = 1^2*T(1) + 1^2 + T(1). a(90) = 1 since 90 = 3^2*T(3) + 6^2 + T(0). a(438) = 1 since 438 = 4^2*T(4) + 5^2 + T(22). a(480) = 1 since 480 = 1^2*T(1) + 17^2 + T(19). a(7108) = 1 since 1^2*T(1) + 69^2 + T(68).
Links
- Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
- Zhi-Wei Sun, Mixed sums of squares and triangular numbers, Acta Arith. 127(2007), 103-113.
- Zhi-Wei Sun, On universal sums of polygonal numbers, Sci. China Math. 58(2015), no. 7, 1367-1396.
- Zhi-Wei Sun, On universal sums ax^2+by^2+f(z), aT_x+bT_y+f(z) and zT_x+by^2+f(z), preprint, arXiv:1502.03056 [math.NT], 2015.
Crossrefs
Programs
-
Mathematica
TQ[n_]:=TQ[n]=IntegerQ[Sqrt[8n+1]] Do[r=0;Do[If[x!=0&&TQ[n-y^2-x^3*(x+1)/2],r=r+1],{y,1,Sqrt[n]},{x,-1-Floor[(2(n-y^2))^(1/4)],(2(n-y^2))^(1/4)}];Print[n," ",r];Continue,{n,1,90}]
Comments