cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-18 of 18 results.

A306227 Number of ways to write n as w + x^4 + y*(y+1)/2 + z*(z+1)/2, where w is 0 or 1, and x, y, z are nonnegative integers with x >= w and y < z.

Original entry on oeis.org

1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 1, 2, 3, 4, 4, 2, 3, 3, 4, 5, 3, 3, 4, 4, 3, 4, 3, 4, 5, 4, 2, 2, 3, 5, 7, 4, 3, 3, 2, 3, 4, 4, 4, 5, 5, 2, 3, 4, 4, 5, 2, 4, 4, 4, 4, 4, 3, 3, 5, 3, 2, 4, 5, 6, 5, 2, 2, 4, 5, 4, 4, 2, 3, 4, 4, 2, 3, 6, 7, 8, 4, 5, 4, 3, 5, 5, 3, 4, 7, 7, 6, 6, 4, 7, 6, 4, 5
Offset: 1

Views

Author

Zhi-Wei Sun, Jan 30 2019

Keywords

Comments

Conjecture: a(n) > 0 for all n > 0. In other words, any positive integer can be written as the sum of two fourth powers one of which is 0 or 1, and two distinct triangular numbers.
We have verified a(n) > 0 for all n = 1..10^6. The conjecture implies that the set S = {x^4 + y*(y+1)/2: x,y = 0,1,2,...} is an additive basis of order two (i.e., the sumset S + S coincides with {0,1,2,...}).
See also A306225 for a similar conjecture.

Examples

			a(1) = 1 with 1 = 0 + 0^4 + 0*1/2 + 1*2/2.
a(2) = 1 with 2 = 0 + 1^4 + 0*1/2 + 1*2/2.
a(14) = 1 with 14 = 0 + 1^4 + 2*3/2 + 4*5/2.
a(3774) = 1 with 3774 = 1 + 5^4 + 52*53/2 + 59*60/2.
a(7035) = 1 with 7035 = 0 + 3^4 + 48*49/2 + 107*108/2.
		

Crossrefs

Programs

  • Mathematica
    TQ[n_]:=TQ[n]=IntegerQ[Sqrt[8n+1]];
    tab={};Do[r=0;Do[If[TQ[n-x-y^4-z(z+1)/2],r=r+1],{x,0,Min[1,(n-1)/2]},{y,x,(n-1-x)^(1/4)},{z,0,(Sqrt[4(n-1-x-y^4)+1]-1)/2}];tab=Append[tab,r],{n,1,100}];Print[tab]

A270594 Number of ordered ways to write n as the sum of a triangular number, a positive square and the square of a generalized pentagonal number (A001318).

Original entry on oeis.org

1, 2, 1, 2, 4, 2, 2, 4, 2, 3, 5, 2, 2, 3, 3, 4, 3, 2, 4, 5, 1, 2, 5, 1, 3, 7, 3, 2, 6, 5, 3, 6, 2, 2, 5, 4, 6, 4, 3, 5, 8, 2, 2, 6, 2, 5, 5, 1, 4, 9, 5, 3, 8, 5, 4, 8, 4, 3, 5, 5, 5, 6, 3, 6, 11, 2, 3, 9, 2, 5, 12, 2, 2, 9, 6, 3, 4, 4, 5, 6, 6, 6, 5, 5, 6, 11, 2, 4, 8, 1
Offset: 1

Views

Author

Zhi-Wei Sun, Mar 19 2016

Keywords

Comments

Conjecture: (i) a(n) > 0 for all n > 0, and a(n) = 1 only for n = 1, 3, 21, 24, 48, 90, 138, 213, 283, 462, 468, 567, 573, 1998, 2068, 2488, 2687, 5208, 5547, 5638, 6093, 6492, 6548, 6717, 7538, 7731, 8522, 14763, 16222, 17143, 24958, 26148.
(ii) Let T(x) = x(x+1)/2, pen(x) = x(3x+1)/2 and hep(x) = x(5x+3)/2. Then any natural number can be written as P(x,y,z) with x, y and z integers, where P(x,y,z) is either of the following polynomials: T(x)^2+T(y)+z(5z+1)/2, T(x)^2+T(y)+z(3z+j) (j = 1,2), T(x)^2+y^2+pen(z), T(x)^2+pen(y)+hep(z), T(x)^2+pen(y)+z(7z+j)/2 (j = 1,3,5), T(x)^2+pen(y)+z(4z+j) (j = 1,3), T(x)^2+pen(y)+z(5z+j) (j = 1,3,4), T(x)^2+pen(y)+z(11z+7)/2, T(x)^2+y(5y+1)/2+z(3z+2), T(x)^2+hep(y)+z(3z+2), pen(x)^2+T(y)+pen(z), pen(x)^2+T(y)+2*pen(z), pen(x)^2+T(y)+z(9z+7)/2, pen(x)^2+y^2+pen(z), pen(x)^2+2*T(y)+pen(z), pen(x)^2+pen(y)+3*T(z), pen(x)^2+pen(y)+2z^2, pen(x)^2+pen(y)+2*pen(z), pen(x)^2+pen(y)+z(7z+j)/2 (j = 1,3,5), pen(x)^2+pen(y)+z(4z+3), pen(x)^2+pen(y)+z(9z+1)/2, pen(x)^2+pen(y)+3*pen(z), pen(x)^2+pen(y)+z(5z+j) (j = 1,2,3,4), pen(x)^2+pen(y)+z(11z+j)/2 (j = 7,9), pen(x)^2+pen(y)+z(7z+1), pen(x)^2+pen(y)+3*hep(z), pen(x)^2+y(5y+j)/2+z(3z+k) (j = 1,3; k = 1,2), pen(x)^2+hep(y)+z(7z+j)/2 (j = 1,3,5), pen(x)^2+hep(y)+z(9z+5)/2, pen(y)^2+2pen(y)+z(3z+2), pen(x)^2+2*pen(y)+3*pen(z), (x(5x+1)/2)^2+2*T(y)+pen(z), (x(5x+1)/2)^2+pen(y)+z(7z+3)/2, (x(5x+1)/2)^2+pen(y)+z(4z+1), (x(5x+1)/2)^2+hep(y)+2*pen(z), hep(x)^2+T(y)+2*pen(z), hep(x)^2+pen(y)+z(7z+j)/2 (j = 1,3,5), hep(x)^2+pen(y)+z(4z+1), hep(x)^2+pen(y)+z(5z+4), 4*pen(x)^2+T(y)+hep(z), 4*pen(x)^2+T(y)+2*pen(z), 4*pen(x)^2+pen(y)+z(7z+j)/2 (j = 1,3,5), (x(3x+2))^2+y^2+pen(z), (x(3x+2))^2+pen(y)+z(7z+j)/2 (j = 3,5), 2*T(x)^2+T(y)+z(3z+j) (j = 1,2), 2*T(x)^2+y^2+pen(z), 2*T(x)^2+2*T(y)+pen(z), 2*T(x)^2+pen(y)+z(7z+j)/2 (j = 1,5), 2*T(x)^2+pen(y)+z(5z+1), 2*pen(y)^2+T(y)+z(3z+2), 2*pen(x)^2+y^2+pen(z), 2*pen(x)^2+pen(y)+z(7z+3)/2, 2*pen(x)^2+pen(y)+z(4z+j) (j = 1,3), 2*pen(x)^2+pen(y)+z(5z+4), 2*pen(x)^2+pen(y)+z(7z+1), 2*pen(x)^2+hep(y)+2*pen(z), 2*hep(x)^2+pen(y)+z(7z+5)/2, 3*pen(x)^2+T(y)+z(3z+2), 3*pen(x)^2+y^2+pen(z), 3*pen(x)^2+2*T(y)+pen(z), 3*pen(x)^2+pen(y)+z(7z+j)/2 (j = 1,3,5), 3*pen(x)^2+pen(y)+z(4z+1), 6*pen(x)^2+pen(y)+z(7z+3)/2.
See also A270566 for a similar conjecture involving four powers.
It is known that any positive integer can be written as the sum of a triangular number, a square and an odd square.

Examples

			a(21) = 1 since 21 = 1*2/2 + 4^2 + (1*(3*1+1)/2)^2.
a(24) = 1 since 24 = 5*6/2 + 3^2 + (0*(3*0-1)/2)^2.
a(468) = 1 since 468 = 0*1/2 + 18^2 + (3*(3*3-1)/2)^2.
a(7538) = 1 since 7538 = 64*65/2 + 47^2 + (6*(3*6+1)/2)^2.
a(7731) = 1 since 7731 = 82*83/2 + 62^2 + (4*(3*4-1)/2)^2.
a(8522) = 1 since 8522 = 127*128/2 + 13^2 + (3*(3*3+1)/2)^2.
a(14763) = 1 since 14763 = 164*165/2 + 33^2 + (3*(3*3-1)/2)^2.
a(16222) = 1 since 16222 = 168*169/2 + 45^2 + (1*(3*1-1)/2)^2.
a(17143) = 1 since 17143 = 182*183/2 + 21^2 + (2*(3*2+1)/2)^2.
a(24958) = 1 since 24958 = 216*217/2 + 39^2 + (1*(3*1-1)/2)^2.
a(26148) = 1 since 26148 = 10*11/2 + 142^2 + (7*(3*7+1)/2)^2.
		

Crossrefs

Programs

  • Mathematica
    pQ[n_]:=pQ[n]=IntegerQ[n]&&IntegerQ[Sqrt[24n+1]]
    Do[r=0;Do[If[pQ[Sqrt[n-x^2-y(y+1)/2]],r=r+1],{x,1,Sqrt[n]},{y,0,(Sqrt[8(n-x^2)+1]-1)/2}];Print[n," ",r];Continue,{n,1,90}]

A262982 Number of ordered ways to write n as x^4 + phi(y^2) + z*(z+1)/2 with x >= 0, y > 0 and z > 0, where phi(.) is Euler's totient function given by A000010.

Original entry on oeis.org

0, 1, 2, 2, 2, 1, 2, 3, 3, 2, 2, 4, 3, 2, 2, 3, 3, 4, 3, 1, 3, 4, 7, 4, 2, 1, 5, 4, 3, 5, 3, 2, 3, 5, 3, 3, 4, 5, 5, 1, 3, 5, 6, 3, 4, 5, 4, 5, 6, 3, 5, 4, 4, 5, 3, 5, 8, 7, 3, 3, 5, 4, 5, 7, 3, 2, 4, 6, 7, 4, 3, 3, 5, 2, 3, 6, 5, 3, 6, 3, 2, 1, 4, 6, 7, 6, 5, 6, 1, 6, 5, 5, 6, 6, 4, 3, 4, 6, 7, 5
Offset: 1

Views

Author

Zhi-Wei Sun, Oct 06 2015

Keywords

Comments

Conjecture: a(n) > 0 for all n > 1, and a(n) = 1 only for n = 2, 6, 20, 26, 40, 82, 89, 105, 305, 416, 470, 725, 6135, 25430, 90285.
Compare this with the conjectures in A262311, A262785 and A262813.

Examples

			a(2) = 1 since 1 = 0^4 + phi(1^2) + 1*2/2.
a(6) = 1 since 6 = 1^4 + phi(2^2) + 2*3/2.
a(20) = 1 since 20 = 2^4 + phi(1^2) + 2*3/2.
a(26) = 1 since 26 = 0^4 + phi(5^2) + 3*4/2.
a(40) = 1 since 40 = 0^4 + phi(6^2) + 7*8/2.
a(82) = 1 since 82 = 0^4 + phi(9^2) + 7*8/2.
a(89) = 1 since 89 = 3^4 + phi(2^2) + 3*4/2.
a(105) = 1 since 105 = 0^4 + phi(14^2) + 6*7/2.
a(305) = 1 since 305 = 4^4 + phi(12^2) + 1*2/2.
a(416) = 1 since 416 = 4^4 + phi(10^2) + 15*16/2.
a(470) = 1 since 470 = 2^4 + phi(12^2) + 28*29/2.
a(725) = 1 since 725 = 2^4 + phi(3^2) + 37*38/2.
a(6135) = 1 since 6135 = 6^4 + phi(81^2) + 30*31/2.
a(25430) = 1 since 25430 = 5^4 + phi(152^2) + 166*167/2.
a(90285) = 1 since 90285 = 16^4 + phi(212^2) + 73*74/2.
		

Crossrefs

Programs

  • Mathematica
    f[n_]:=EulerPhi[n^2]
    TQ[n_]:=n>0&&IntegerQ[Sqrt[8n+1]]
    Do[r=0;Do[If[f[x]>n,Goto[aa]];Do[If[TQ[n-f[x]-y^4],r=r+1],{y,0,(n-f[x])^(1/4)}];Label[aa];Continue,{x,1,n}];Print[n," ",r];Continue,{n,1,100}]

A270616 Number of ordered ways to write n as the sum of a positive square, the square of a triangular number, and a generalized pentagonal number (A001318).

Original entry on oeis.org

1, 2, 2, 2, 2, 3, 2, 1, 3, 4, 4, 3, 2, 3, 3, 4, 6, 4, 3, 3, 2, 3, 3, 3, 6, 4, 5, 4, 1, 4, 4, 5, 2, 1, 3, 5, 6, 5, 6, 5, 5, 5, 2, 5, 6, 3, 5, 3, 5, 6, 6, 10, 4, 2, 3, 4, 5, 4, 5, 7, 6, 5, 4, 4, 6, 6, 7, 2, 3, 3, 6, 6, 5, 6, 5, 6, 5, 3, 4, 8
Offset: 1

Views

Author

Zhi-Wei Sun, Mar 20 2016

Keywords

Comments

Conjecture: a(n) > 0 for all n > 0, and a(n) = 1 only for n = 1, 8, 29, 34, 5949, 10913.
See also A270566 and A270594 for more similar conjectures.
By the author's work in Sci. China Math. 58(2015), any natural number can be written as the sum of a triangular number, a square and a generalized pentagonal number.

Examples

			a(1) = 1 since 1 = 1^2 + (0*1/2)^2 + 0*(3*0+1)/2.
a(8) = 1 since 8 = 1^2 + (0*1/2)^2 + 2*(3*2+1)/2.
a(29) = 1 since 29 = 4^2 + (1*2/2)^2 + 3*(3*3-1)/2.
a(34) = 1 since 34 = 5^2 + (2*3/2)^2 + 0*(3*0+1)/2.
a(5949) = 1 since 5949 = 47^2 + (10*11/2)^2 + 22*(3*22-1)/2.
a(10913) = 1 since 10913 = 23^2 + (2*3/2)^2 +83*(3*83+1)/2.
		

Crossrefs

Programs

  • Mathematica
    pQ[n_]:=pQ[n]=IntegerQ[Sqrt[24n+1]]
    Do[r=0;Do[If[pQ[n-x^2-(y(y+1)/2)^2],r=r+1],{x,1,Sqrt[n]},{y,0,(Sqrt[8*Sqrt[n-x^2]+1]-1)/2}];Print[n," ",r];Continue,{n,1,80}]

A275150 Number of ordered ways to write n as x^3 + 2*y^2 + k*z^2, where x,y,z are nonnegative integers, k is 1 or 5, and k = 1 if z = 0.

Original entry on oeis.org

1, 2, 2, 2, 2, 2, 2, 2, 3, 4, 3, 2, 3, 3, 2, 1, 2, 4, 3, 4, 3, 2, 2, 3, 3, 3, 3, 4, 5, 2, 3, 2, 3, 5, 4, 4, 5, 3, 4, 3, 2, 3, 2, 2, 5, 5, 4, 2, 2, 5, 3, 5, 5, 3, 5, 5, 2, 3, 3, 4, 4, 2, 2, 4, 4, 6, 3, 5, 4, 2, 3, 4, 5, 5, 4, 4, 5, 5, 5, 1, 5
Offset: 0

Views

Author

Zhi-Wei Sun, Jul 17 2016

Keywords

Comments

Conjecture 1: a(n) > 0 for all n = 0,1,2,..., and a(n) = 1 only for n = 0, 15, 79, 120, 218, 399, 454, 622, 725, 3240.
We have verified that a(n) > 0 for all n = 0..10^7.
Conjecture 2: For any positive integers a, b, c and integers i, j, k greater than one, there are infinitely many positive integers not in the set {a*x^i + b*y^j + c*z^k: x,y,z = 0,1,2,...}. - Zhi-Wei Sun, May 24 2023

Examples

			a(0) = 1 since 0 = 0^3 + 2*0^2 + 0^2.
a(15) = 1 since 15 = 2^3 + 2*1^2 + 5*1^2.
a(79) = 1 since 79 = 3^3 + 2*4^2 + 5*2^2.
a(120) = 1 since 120 = 2^3 + 2*4^2 + 5*4^2.
a(218) = 1 since 218 = 6^3 + 2*1^2 + 0^2.
a(399) = 1 since 399 = 5^3 + 2*3^2 + 16^2.
a(454) = 1 since 454 = 0^3 + 2*15^2 + 2^2.
a(622) = 1 since 622 = 2^3 + 2*17^2 + 6^2.
a(725) = 1 since 725 = 5^3 + 2*10^2 + 20^2.
a(3240) = 1 since 3240 = 7^3 + 2*38^2 + 3^2.
		

Crossrefs

Programs

  • Mathematica
    SQ[n_]:=SQ[n]=IntegerQ[Sqrt[n]]
    TQ[n_]:=TQ[n]=SQ[n]||SQ[n/5]
    Do[r=0;Do[If[TQ[n-x^3-2*y^2],r=r+1],{x,0,n^(1/3)},{y,0,Sqrt[(n-x^3)/2]}];Print[n," ",r];Continue,{n,0,80}]

A262979 Number of ordered ways to write n as x^4 + phi(y^2) + z*(3*z-1)/2 with x >= 0 and y > 0, where phi(.) is Euler's totient function given by A000010.

Original entry on oeis.org

1, 3, 4, 3, 1, 2, 4, 5, 5, 3, 2, 2, 5, 6, 3, 2, 4, 5, 4, 4, 4, 5, 5, 7, 5, 2, 4, 6, 6, 3, 2, 4, 6, 5, 5, 4, 5, 4, 4, 4, 5, 7, 9, 6, 3, 4, 6, 9, 5, 6, 2, 4, 7, 6, 8, 6, 6, 8, 7, 7, 4, 4, 8, 6, 4, 4, 3, 5, 5, 6, 7, 5, 4, 3, 5, 5, 5, 5, 6, 4, 3, 5, 8, 7, 6, 4, 5, 5, 8, 8, 5, 5
Offset: 1

Views

Author

Zhi-Wei Sun, Oct 06 2015

Keywords

Comments

Conjecture: (i) a(n) > 0 for all n > 0.
(ii) Any positive integer n can be written as x^4 + phi(y^2) + pi(z^2) (or x^4 + pi(y^2) + pi(z^2)) with y > 0 and z > 0, where pi(m) denotes the number of primes not exceeding m.

Examples

			a(5) = 1 since 5 = 1^4 + phi(2^2) + (-1)*(3*(-1)-1)/2.
a(6) = 2 since 6 = 0^4 + phi(1^2) + 2*(3*2-1)/2 = 0^4 + phi(3^2) + 0*(3*0-1)/2.
a(16) = 2 since 16 = 0^4 + phi(1^2) + (-3)*(3*(-3)-1)/2
= 1^4 + phi(4^2) + (-2)*(3*(-2)-1)/2.
		

Crossrefs

Programs

  • Mathematica
    f[n_]:=EulerPhi[n^2]
    PenQ[n_]:=IntegerQ[Sqrt[24n+1]]
    Do[r=0;Do[If[f[x]>n,Goto[aa]];Do[If[PenQ[n-f[x]-y^4],r=r+1],{y,0,(n-f[x])^(1/4)}];Label[aa];Continue,{x,1,n}];Print[n," ",r];Continue,{n,1,100}]

A270705 Number of ordered ways to write n as x^2*pen(x) + pen(y) + pen(z) with pen(x) = x*(3x+1)/2 and pen(y) <= pen(z), where x, y and z are integers ("pen" stands for "pentagonal").

Original entry on oeis.org

1, 2, 5, 5, 6, 4, 3, 4, 4, 4, 3, 2, 3, 3, 6, 4, 4, 4, 3, 3, 3, 4, 6, 5, 6, 5, 5, 8, 8, 9, 7, 5, 7, 6, 7, 9, 7, 10, 5, 5, 9, 6, 12, 7, 8, 6, 3, 10, 6, 5, 7, 5, 8, 7, 8, 9, 5, 9, 8, 7, 5, 7, 7, 5, 6, 6, 5, 4, 6, 4, 8, 5, 9, 6, 3, 7, 5, 8, 8, 8, 8, 6, 6, 6, 6, 6, 8, 3, 1, 4, 6
Offset: 0

Views

Author

Zhi-Wei Sun, Mar 21 2016

Keywords

Comments

Conjecture: (i) Any natural number can be written as a*x^2*pen(x) + b*pen(y) + c*pen(z) with x, y and z integers, provided that (a,b,c) is among the following ordered triples: (j,1,k) (j = 1,2; k = 1,2,3,4), (1,2,3), (3,1,4) and (4,1,3).
(ii) Every n = 0,1,2,... can be expressed as x^2*pen(x) + T(y) + T(z) with x, y and z integers, where T(m) denotes the triangular number m*(m+1)/2. Also, for each (a,b) = (1,2),(1,4),(2,2), any natural number can be written as a*x^2*T(x) + b*T(y) + T(z) with x, y and z integers.
(iii) Each natural number can be written as x^2*P(x) + pen(y) + pen(z) with x, y and z integers, where P(x) is either of the following polynomials: a*T(x) (a = 1,2,3,4,5), x*(5x+3)/2, x*(3x+1), x*(3x+2), x*(7x+1)/2, x*(4x+1), x*(4x+3), x*(9x+5)/2, x*(5x+3), x*(11x+9)/2, x*(13x+5)/2, x*(17x+9)/2, 3x*(3x+2), x*(11x+2).
See also A270594 and A270706 for other similar conjectures.

Examples

			a(88) = 1 since 88 = 1^2*pen(1) + pen(-5) + pen(-6).
		

Crossrefs

Programs

  • Mathematica
    pen[x_]:=pen[x]=x(3x+1)/2
    pQ[n_]:=pQ[n]=IntegerQ[Sqrt[24n+1]]
    Do[r=0;Do[If[pQ[n-pen[y]-x^2*pen[x]],r=r+1],{y,-Floor[(Sqrt[12n+1]+1)/6],(Sqrt[12n+1]-1)/6},{x,-1-Floor[(2(n-pen[y])/3)^(1/4)],(2(n-pen[y])/3)^(1/4)}];Print[n," ",r];Continue,{n,0,90}]

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.

Original entry on oeis.org

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

Views

Author

Zhi-Wei Sun, Mar 21 2016

Keywords

Comments

Conjecture: (i) a(n) > 0 for all n > 0, and a(n) = 1 only for n = 1, 3, 90, 438, 480, 7108.
(ii) Let pen(x) = x*(3x+1)/2. Any natural number can be written as a*f(x)*g(x) + f(y) + g(z) with x, y and z integers, whenever (a,f(x),g(x)) is among the following ordered triples: (1,T(x),x^2), (1,T(x),pen(x)), (1,T(x),x*(5x+1)/2), (1,T(x),x*(5x+3)/2), (1,T(x),x*(3x+j)) (j = 1,2), (1,pen(x),3*T(x)), (1,pen(x),x*(7x+j)/2) (j = 1,3,5), (1,pen(x),x*(4x+1)), (2,T(x),x^2), (2,T(x),pen(x)), (2,T(x),x(5x+j)/2) (j = 1,3), (2,T(x),x*(3x+j)) (j = 1,2), (2,2*T(x),pen(x)), (2,pen(x),x(7x+j)/2) (j = 3,5), (k,x^2,pen(x)) (k = 1,2,3,4,5,8,11).
(iii) Each natural number can be written as P(x,y,z) with x, y and z integers, where P(x,y,z) is either of the following polynomials: T(x)*x(5x+1)/2+T(y)+2*T(z), a*T(x)*pen(x)+pen(y)+pen(z) (a = 1,2,3,4), T(x)*pen(x)+pen(y)+3*pen(z), T(x)*pen(x)+pen(y)+4*pen(z), 2*T(x)*pen(x)+pen(y)+3*pen(z), pen(x)*x(5x+j)/2+pen(y)+3*pen(z) (j = 1,3), x(3x+2)*pen(x)+pen(y)+4*pen(z), pen(x)*x(7x+1)/2+pen(y)+pen(z), pen(x)*x(9x+7)/2+pen(y)+pen(z).
See also A270594 and A270705 for some other similar conjectures.

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).
		

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}]
Previous Showing 11-18 of 18 results.