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.

Showing 1-7 of 7 results.

A306225 Number of ways to write n as w + x^5 + pen(y) + pen(z), where w is 0 or 1, and x,y,z are integers with x >= w and pen(y) < pen(z), and where pen(m) denotes the pentagonal number m*(3*m-1)/2.

Original entry on oeis.org

1, 2, 3, 2, 2, 2, 4, 4, 4, 2, 1, 2, 3, 4, 3, 3, 4, 3, 3, 2, 2, 3, 3, 4, 2, 2, 4, 5, 5, 2, 2, 1, 3, 4, 5, 4, 5, 6, 6, 6, 6, 7, 4, 4, 4, 3, 5, 5, 6, 4, 3, 6, 5, 5, 5, 4, 5, 6, 9, 7, 4, 4, 5, 5, 3, 5, 4, 4, 4, 5, 4, 6, 8, 7, 5, 2, 6, 5, 8, 6, 3, 3, 5, 7, 6, 4, 3, 3, 4, 5, 5, 6, 7, 9, 5, 4, 4, 5, 6, 3
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 fifth powers of nonnegative integers one of which is 0 or 1, and two distinct generalized pentagonal numbers.
We have verified a(n) > 0 for all n = 1..2*10^6. The conjecture implies that the set A = {x^5 + pen(y): x = 0,1,2,... and y is an integer} is an additive basis of order two (i.e., the sumset A + A coincides with {0,1,2,...}).
See also A306227 for a similar conjecture.

Examples

			a(11) = 1 with 11 = 1 + 1^5 + pen(-1) + pen(-2).
a(1000) = 1 with 1000 = 0 + 2^5 + pen(8) + pen(-24).
a(5104) = 1 with 5104 = 1 + 3^5 + pen(-3) + pen(57).
a(8196) = 1 with 8196 = 0 + 2^5 + pen(48) + pen(-56).
a(9537) = 1 with 9537 = 1 + 6^5 + pen(17) + pen(30).
a(15049) = 1 with 15049 = 0 + 6^5 + pen(-44) + pen(54).
a(16775) = 1 with 16775 = 1 + 5^5 + pen(-17) + pen(94).
		

Crossrefs

Programs

  • Mathematica
    PenQ[n_]:=PenQ[n]=IntegerQ[Sqrt[24n+1]];
    tab={};Do[r=0;Do[If[PenQ[n-x-y^5-z(3z-1)/2],r=r+1],{x,0,Min[1,(n-1)/2]},{y,x,(n-1-x)^(1/5)},{z,-Floor[(Sqrt[12(n-1-x-y^5)+1]-1)/6],(Sqrt[12(n-1-x-y^5)+1]+1)/6}];tab=Append[tab,r],{n,1,100}];Print[tab]

A266968 Number of ordered ways to write n as x^5+y^4+z^3+w*(w+1)/2, where x, y, z and w are nonnegative integers with z > 0 and w > 0.

Original entry on oeis.org

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

Views

Author

Zhi-Wei Sun, Mar 28 2016

Keywords

Comments

Conjecture: (i) a(n) > 0 for all n > 1, and a(n) = 1 only for n = 2, 6, 7, 14, 21, 22, 26, 41, 51, 184, 189, 206, 225, 229, 526, 708.
(ii) Any natural number can be written as 2*x^5 + y^4 + z^3 + w*(w+1)/2 with x,y,z,w nonnegative integers. Also, each natural number can be written as x^5 + 2*y^4 + z^3 + w*(w+1)/2 with x,y,z,w nonnegative integers.
(iii) For each d = 1,2, every natural number can be written as x^5 + y^4 + z^3 + w*(3w+1)/d with x,y,z nonnegative integers and w an integer.
(iv) Any natural number can be written as x^4 + y^4 + z^3 + w*(3w+1)/2 with x,y,z nonnegative integers and w an integer.
Also, for each P(w) = w(3w+1)/2, w(7w+3)/2, we can write any natural number as x^4 + y^3 + z^3 + P(w) with x,y,z nonnegative integers and w an integer.
(v) Any natural number can be written as the sum of a nonnegative cube and three pentagonal numbers. Also, every n = 0,1,2,... can be expressed as the sum of two nonnegative cubes and two pentagonal numbers.
We have verified that a(n) > 1 for all n = 2..3*10^6.
Compare this conjecture with the conjectures in A262813, A262827, A270559 and A271026.

Examples

			a(2) = 1 since 2 = 0^5 + 0^4 + 1^3 + 1*2/2.
a(6) = 1 since 6 = 1^5 + 1^4 + 1^3 + 2*3/2.
a(7) = 1 since 7 = 0^5 + 0^4 + 1^3 + 3*4/2.
a(14) = 1 since 14 = 0^5 + 0^4 + 2^3 + 3*4/2.
a(21) = 1 since 21 = 1^5 + 2^4 + 1^3 + 2*3/2.
a(22) = 1 since 22 = 0^5 + 0^4 + 1^3 + 6*7/2.
a(26) = 1 since 26 = 1^5 + 2^4 + 2^3 + 1*2/2.
a(41) = 1 since 41 = 2^5 + 0^4 + 2^3 + 1*2/2.
a(51) = 1 since 51 = 2^5 + 1^4 + 2^3 + 4*5/2.
a(184) = 1 since 184 = 0^5 + 0^4 + 4^3 + 15*16/2.
a(189) = 1 since 189 = 1^5 + 2^4 + 1^3 + 18*19/2.
a(206) = 1 since 206 = 2^5 + 3^4 + 3^3 + 11*12/2.
a(225) = 1 since 225 = 0^5 + 3^4 + 2^3 + 16*17/2.
a(229) = 1 since 229 = 1^5 + 3^4 + 3^3 + 15*16/2.
a(526) = 1 since 526 = 3^5 + 1^4 + 6^3 + 11*12/2.
a(708) = 1 since 708 = 1^5 + 5^4 + 3^3 + 10*11/2.
		

Crossrefs

Programs

  • Mathematica
    TQ[n_]:=TQ[n]=n>0&&IntegerQ[Sqrt[8n+1]]
    Do[r=0;Do[If[TQ[n-x^5-y^4-z^3],r=r+1],{x,0,n^(1/5)},{y,0,(n-x^5)^(1/4)},{z,1,(n-x^5-y^4)^(1/3)}];Print[n," ",r];Continue,{n,0,80}]

A271026 Number of ordered ways to write n as x^7 + y^4 + z^3 + w*(3w+1)/2, where x, y, z are nonnegative integers, and w is an integer.

Original entry on oeis.org

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

Views

Author

Zhi-Wei Sun, Mar 29 2016

Keywords

Comments

Conjecture: (i) a(n) > 0 for all n = 0,1,2,..., and a(n) = 1 only for n = 0, 47, 61, 62, 112, 175, 448, 573, 714, 1073, 1175, 1839, 2167, 8043, 13844.
(ii) Any natural number can be written as 3*x^6 + y^4 + z^3 + w*(3w+1)/2, where x, y, z are nonnegative integers and w is an integer.
(iii) For every a = 3, 4, 5, 9, 12, any natural number can be written as a*x^5 + y^4 + z^3 + w*(3w+1)/2, where x, y, z are nonnegative integers and w is an integer. Also, any natural number can be written as x^5 + 2*y^4 + 2*z^3 + w*(3w+1)/2 (or 3*x^5 + 2*y^4 + z^3 + w*(3w+1)/2), where x, y, z are nonnegative integers and w is an integer.
We have verified that a(n) > 0 for n up to 2*10^6.
See also A266968 for a related conjecture.

Examples

			a(47) = 1 since 47 = 1^7 + 2^4 + 2^3 + (-4)*(3*(-4)+1)/2.
a(61) = 1 since 61 = 1^7 + 1^4 + 2^3 + (-6)*(3*(-6)+1)/2.
a(62) = 1 since 62 = 0^7 + 0^4 + 3^3 + (-5)*(3*(-5)+1)/2.
a(112) = 1 since 112 = 1^7 + 3^4 + 2^3 + (-4)*(3*(-4)+1)/2.
a(175) = 1 since 175 = 1^7 + 3^4 + 1^3 + (-8)*(3*(-8)+1)/2.
a(448) = 1 since 448 = 2^7 + 4^4 + 4^3 + 0*(3*0+1)/2.
a(573) = 1 since 573 = 1^7 + 4^4 + 6^3 + 8*(3*8+1)/2.
a(714) = 1 since 714 = 2^7 + 4^4 + 0^3 + (-15)*(3*(-15)+1)/2.
a(1073) = 1 since 1073 = 0^7 + 2^4 + 10^3 + 6*(3*6+1)/2.
a(1175) = 1 since 1175 = 0^7 + 5^4 + 5^3 + (-17)*(3*(-17)+1)/2.
a(1839) = 1 since 1839 = 1^7 + 4^4 + 5^3 + 31*(3*31+1)/2.
a(2167) = 1 since 2167 = 1^7 + 5^4 + 11^3 + (-12)*(3*(-12)+1)/2.
a(8043) = 1 since 8043 = 1^7 + 2^4 + 20^3 + 4*(3*4+1)/2.
a(13844) = 1 since 13844 = 3^7 + 2^4 + 21^3 + (-40)*(3*(-40)+1)/2.
		

Crossrefs

Programs

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

A271106 Number of ordered ways to write n as x^6 + 3*y^3 + z^3 + w*(w+1)/2, where x and y are nonnegative integers, and z and w are positive integers.

Original entry on oeis.org

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

Views

Author

Zhi-Wei Sun, Mar 30 2016

Keywords

Comments

Conjecture: a(n) > 0 for all n > 1, and a(n) = 1 only for n = 2, 3, 4, 6, 9, 13, 16, 20, 21, 24, 25, 44, 50, 51, 65, 84, 189, 290, 484, 616, 664, 680, 917, 1501, 1639, 3013.
Based on our computation, we also formulate the following general conjecture.
General Conjecture: Let T(w) = w*(w+1)/2. We have {P(x,y,z,w): x,y,z,w = 0,1,2,...} = {0,1,2,...} for any of the following polynomials P(x,y,z,w): x^3+y^3+c*z^3+T(w) (c = 2,3,4,6), x^3+y^3+c*z^3+2*T(w) (c = 2,3), x^3+b*y^3+3z^3+3*T(w) (b = 1,2), x^3+2y^3+3z^3+w(5w-1)/2, x^3+2y^3+3z^3+w(5w-3)/2, x^3+2y^3+c*z^3+T(w) (c = 2,3,4,5,6,7,12,20,21,34,35,40), x^3+2y^3+c*z^3+2*T(w) (c = 3,4,5,6,11), x^3+2y^3+c*z^3+w^2 (c = 3,4,5,6), x^3+2y^3+4z^3+w(3w-1)/2, x^3+2y^3+4z^3+w(3w+1)/2, x^3+2y^3+4z^3+w(2w-1), x^3+2y^3+6z^3+w(3w-1)/2, x^3+3y^3+c*z^3+T(w) (c = 3,4,5,6,10,11,13,15,16,18,20), x^3+3y^3+c*z^3+2*T(w) (c = 5,6,11), x^3+4y^3+c*z^3+T(w) (c = 5,10,12,16), x^3+4y^3+5z^3+2*T(w), x^3+5y^3+10z^3+T(w), 2x^3+3y^3+c*z^3+T(w) (c = 4,6), 2x^3+4y^3+8z^3+T(w), x^4+y^3+3z^3+w(3w-1)/2, x^4+y^3+c*z^3+T(w) (c = 2,3,4,5,7,12,13), x^4+y^3+c*z^3+2*T(w) (c = 2,3,4,5), x^4+y^3+2z^3+w^2, x^4+y^3+4z^3+2w^2, x^4+2y^3+c*z^3+T(w) (c = 4,5,12), x^4+2y^3+3z^3+2*T(w), 2x^4+y^3+2z^3+w(3w-1)/2, 2x^4+y^3+c*z^3+T(w) (c = 1,2,3,4,5,6,10,11), 2x^4+y^3+c*z^3+2*T(w) (c = 2,3,4), 2x^4+2y^3+c*z^3+T(w) (c = 3,5), 3x^4+y^3+c*z^3+T(w) (c = 1,2,3,4,5,11), 3x^4+y^3+2z^3+2*T(w), 3x^4+y^3+2z^3+w^2, 3x^4+y^3+2z^3+w(3w-1)/2, 4x^4+y^3+c*z^3+T(w) (c = 2,3,4,6), 4x^4+y^3+2z^3+2*T(w), 5x^4+y^3+c*z^3+T(w) (c = 2,4), a*x^4+y^3+2z^3+T(w) (a = 6,20,28,40), 6x^4+y^3+2z^3+2*T(w), 6x^4+y^3+2z^3+w^2, a*x^4+y^3+3z^3+T(w) (a = 6,8,11), 8x^4+2y^3+4z^3+T(w), x^5+y^3+c*z^3+T(w) (c = 2,3,4), x^5+2y^3+c*z^3+T(w) (c = 3,6,8), 2x^5+y^3+4z^3+T(w), 3x^5+y^3+2z^3+T(w), 5x^5+y^3+c*z^3+T(w) (c = 2,4), x^6+y^3+3z^3+T(w), x^7+y^3+4z^3+T(w), x^4+2y^4+z^3+w^2, x^4+2y^4+2z^3+T(w), x^4+b*y^4+z^3+T(w) (b = 2,3,4), 2x^4+3y^4+z^3+T(w), a*x^5+y^4+z^3+T(w) (a = 1,2), x^5+2y^4+z^3+T(w).
The polynomials listed in the general conjecture should exhaust all those polynomials P(x,y,z,w) = a*x^i+b*y^j+c*z^k+w*(s*w+/-t)/2 with {P(x,y,z,w): x,y,z,w = 0,1,2,...} = {0,1,2,...}, where a,b,c,s > 0, 0 <= t <= s, s == t (mod 2), i >= j >= k >= 3, a <= b if i = j, and b <= c if j = k.

Examples

			a(9) = 1 since 9 = 0^6 + 3*0^6 + 2^3 + 1*2/2.
a(24) = 1 since 24 = 1^6 + 3*0^6 + 2^3 + 5*6/2.
a(1501) = 1 since 1501 = 2^6 + 3*5^3 + 3^3 + 45*46/2.
a(1639) = 1 since 1639 = 0^6 + 3*6^3 + 1^3 + 44*45/2.
a(3013) = 1 since 3013 = 3^6 + 3*3^3 + 13^3 + 3*4/2.
		

Crossrefs

Programs

  • Mathematica
    TQ[n_]:=TQ[n]=n>0&&IntegerQ[Sqrt[8n+1]]
    Do[r=0;Do[If[TQ[n-x^6-3*y^3-z^3],r=r+1],{x,0,n^(1/6)},{y,0,((n-x^6)/3)^(1/3)},{z,1,(n-x^6-3y^3)^(1/3)}];Print[n," ",r];Continue,{n,0,70}]

A338686 Number of ways to write n as x^5 + y^2 + [z^2/7], where x,y,z are integers with x >= 0, y >= 1 and z >= 2, and [.] is the floor function.

Original entry on oeis.org

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

Views

Author

Zhi-Wei Sun, Apr 23 2021

Keywords

Comments

Conjecture: a(n) > 0 for all n > 0.
We have verified a(n) > 0 for all n = 1..7*10^6.
See also A338687 for a similar conjecture.
Conjecture verified up to 2*10^9. - Giovanni Resta, Apr 28 2021

Examples

			a(1) = 1 with 1 = 0^5 + 1^2 + [2^2/7].
a(166) = 1 with 166 = 0^5 + 1^2 + [34^2/7].
a(323) = 1 with 323 = 2^5 + 17^2 + [4^2/7].
a(815) = 1 with 815 = 2^5 + 1^2 + [74^2/7].
a(2069) = 1 with 2069 = 0^5 + 37^2 + [70^2/7].
a(7560) = 1 with 7560 = 2^5 + 64^2 + [155^2/7].
a(24195) = 1 with 24195 = 0^5 + 8^2 + [411^2/7].
a(90886) = 2 with 90886 = 4^5 + 34^2 + [788^2/7] = 9^5 + 139^2 + [296^2/7].
		

Crossrefs

Programs

  • Mathematica
    SQ[n_]:=SQ[n]=IntegerQ[Sqrt[n]];
    tab={};Do[r=0;Do[If[SQ[n-x^5-Floor[y^2/7]],r=r+1],{x,0,(n-1)^(1/5)},{y,2,Sqrt[7(n-x^5)-1]}];tab=Append[tab,r],{n,1,100}];Print[tab]

A270921 Number of ordered ways to write n as x*(3x+2) + y*(5y+1)/2 - z^4, where x and y are integers, and z is a nonnegative integer with z^4 <= n.

Original entry on oeis.org

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

Views

Author

Zhi-Wei Sun, Mar 25 2016

Keywords

Comments

Conjecture: a(n) > 0 for all n > 0, and a(n) = 1 only for n = 0, 5, 6, 12, 13, 14, 112, 193, 194, 200, 242, 333, 345, 376, 492, 528, 550, 551, 613, 797, 1178, 1195, 1222, 1663, 3380, 3635, 6508, 8755, 9132, 12434, 20087.
Compare this conjecture with the conjecture in A270566.

Examples

			a(5) = 1 since 5 = 1*(3*1+2) + 0*(5*0+1)/2 - 0^4.
a(6) = 1 since 6 = 1*(3*1+2) + (-1)*(5*(-1)+1)/2 - 1^4.
a(13) = 1 since 13 = 1*(3*1+2) + (-2)*(5*(-2)+1)/2 - 1^4.
a(376) = 1 since 376 = 0*(3*0+2) + (-16)*(5*(-16)+1)/2 - 4^4.
a(9132) = 1 since 9132 = (-13)*(3*(-13)+2) + 59*(5*59+1)/2 - 3^4.
a(12434) = 1 since 12434 = (-21)*(3*(-21)+2) + 78*(5*78+1)/2 - 8^4.
a(20087) = 1 since 20087 = 19*(3*19+2) + 87*(5*87+1)/2 - 0^4.
5, 6, 12, 13, 14, 112, 193, 194, 200, 242, 333, 345, 376, 492, 528, 550, 551, 613, 797, 1178, 1195, 1222, 1663, 3380, 3635, 6508, 8755, 9132, 12434, 20087
		

Crossrefs

Programs

  • Mathematica
    pQ[n_]:=pQ[n]=IntegerQ[Sqrt[40n+1]]&&(Mod[Sqrt[40n+1],10]==1||Mod[Sqrt[40n+1],10]==9)
    Do[r=0;Do[If[pQ[n+x^4-y(3y+2)],r=r+1],{x,0,n^(1/4)},{y,-Floor[(Sqrt[3(n+x^4)+1]+1)/3],(Sqrt[3(n+x^4)+1]-1)/3}];Print[n," ",r];Continue,{n,0,80}]

A271365 Number of ordered ways to write n as u^2 + v^3 + x^4 + y^5 + z^6, where u is a positive integer, and v, x, y, z are nonnegative integers.

Original entry on oeis.org

1, 4, 6, 5, 5, 6, 4, 1, 2, 7, 9, 6, 4, 3, 1, 1, 6, 12, 10, 4, 3, 3, 1, 1, 6, 12, 11, 7, 6, 4, 2, 4, 9, 12, 8, 5, 10, 12, 6, 2, 5, 9, 8, 8, 10, 6, 2, 3, 8, 13, 10, 8, 11, 8, 2, 1, 6, 10, 8, 7, 6, 2, 2, 7, 15, 20, 14, 9, 13, 11
Offset: 1

Views

Author

Zhi-Wei Sun, Apr 05 2016

Keywords

Comments

Conjecture: a(n) > 0 for all n > 0, and a(n) = 1 only for n = 1, 8, 15, 16, 23, 24, 56. Moreover, the only positive integers not represented by u^2+v^3+x^4+y^5 (u > 0 and v,x,y >= 0) are 8, 15, 23, 55, 62, 71, 471, 478, 510, 646, 806, 839, 879, 939, 1023, 1063, 1287, 2127, 5135, 6811, 7499, 9191, 26471.
Note that 1/2+1/3+1/4+1/5+1/6 = 29/20 < 3/2.

Examples

			a(1) = 1 since 1 = 1^2 + 0^3 + 0^4 + 0^5 + 0^6.
a(8) = 1 since 8 = 2^2 + 1^3 + 1^4 + 1^5 + 1^6.
a(15) = 1 since 15 = 2^2 + 2^3 + 1^4 + 1^5 + 1^6.
a(16) = 1 since 16 = 4^2 + 0^3 + 0^4 + 0^5 + 0^6.
a(23) = 1 since 23 = 2^2 + 1^3 + 2^4 + 1^5 + 1^6.
a(24) = 1 since 24 = 4^2 + 2^3 + 0^4 + 0^5 + 0^6.
a(56) = 1 since 56 = 4^2 + 2^3 + 0^4 + 2^5 + 0^6.
		

Crossrefs

Programs

  • Mathematica
    SQ[n_]:=SQ[n]=n>0&&IntegerQ[Sqrt[n]]
    Do[r=0;Do[If[SQ[n-x1^6-x2^5-x3^4-x4^3],r=r+1],{x1,0,n^(1/6)},{x2,0,(n-x1^6)^(1/5)},{x3,0,(n-x1^6-x2^5)^(1/4)},{x4,0,(n-x1^6-x2^5-x3^4)^(1/3)}];Print[n," ",r];Continue,{n,1,70}]
Showing 1-7 of 7 results.