The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A282863 Number of ways to write n as x^2 + y^2 + z^2 + w^2 with x,y,z,w nonnegative integers such that 72*x^3 + (y-z)^3 is an even square. 1
 1, 1, 1, 1, 2, 2, 3, 1, 2, 3, 1, 2, 3, 3, 2, 2, 3, 3, 2, 2, 4, 3, 5, 2, 1, 3, 2, 4, 2, 3, 4, 2, 2, 3, 1, 3, 5, 3, 4, 1, 3, 4, 2, 2, 5, 2, 1, 3, 2, 3, 1, 4, 3, 2, 6, 3, 1, 4, 3, 3, 2, 4, 6, 1, 2, 6, 3, 3, 6, 3, 6, 2, 5, 3, 1, 6, 7, 5, 2, 4, 5 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,5 COMMENTS Conjecture: (i) a(n) > 0 for any nonnegative integer n. Also, each n = 0,1,2,... can be written as x^2 + y^2 + z^2 + w^2 with x,y,z,w nonnegative integers such that x^3 + ((y-z)/2)^3 is a square (or twice a square). (ii) Let a and b be positive integers with gcd(a,b) squarefree. Then, every n = 0,1,2,... can be written as x^2 + y^2 + z^2 + w^2 with x,y,z,w nonnegative integers such that a*x^3 + b*(y-z)^3 is a square, if and only if (a,b) is among the ordered pairs (1,1), (1,9), (2,18), (8,1), (9,5), (9,8), (9,40), (16,2), (18,16), (25,16), (72,1). We have verified that a(n) > 0 for all n = 0..2*10^6. LINKS Zhi-Wei Sun, Table of n, a(n) for n = 0..10000 Zhi-Wei Sun, Refining Lagrange's four-square theorem, J. Number Theory 175(2017), 167-190. Zhi-Wei Sun, Restricted sums of four squares, arXiv:1701.05868 [math.NT], 2017. EXAMPLE a(56) = 1 since 56 = 0^2 + 6^2 + 2^2 + 4^2 with 72*0^3 + (6-2)^3 = 8^2. a(120) = 1 since 120 = 4^2 + 2^2 + 10^2 + 0^2 with 72*4^3 + (2-10)^3 = 64^2. a(159) = 1 since 159 = 2^2 + 3^2 + 11^2 + 5^2 with 72*2^3 + (3-11)^3 = 8^2. a(1646) = 1 since 1646 = 5^2 + 10^2 + 0^2 + 39^2 with 72*5^3 + (10-0)^3 = 100^2. a(1784) = 1 since 1784 = 12^2 + 22^2 + 30^2 + 16^2 with 72*12^3 + (22-30)^3 = 352^2. a(3914) = 1 since 3914 = 2^2 + 45^2 + 21^2 + 38^2 with 72*2^3 + (45-21)^3 = 120^2. a(5864) = 1 since 5864 = 50^2 + 0^2 + 0^2 + 58^2 with 72*50^3 + (0-0)^3 = 3000^2. MATHEMATICA SQ[n_]:=SQ[n]=IntegerQ[Sqrt[n]]; Do[r=0; Do[If[SQ[n-x^2-y^2-z^2]&&SQ[72x^3+(y-z)^3]&&Mod[y-z, 2]==0, r=r+1], {x, 0, Sqrt[n]}, {y, 0, Sqrt[n-x^2]}, {z, 0, Sqrt[n-x^2-y^2]}]; Print[n, " ", r], {n, 0, 80}] CROSSREFS Cf. A000118, A000290, A000578, A271518, A281976, A283617. Sequence in context: A236920 A054707 A325518 * A308662 A284051 A226743 Adjacent sequences:  A282860 A282861 A282862 * A282864 A282865 A282866 KEYWORD nonn AUTHOR Zhi-Wei Sun, Mar 14 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 28 22:17 EST 2020. Contains 332335 sequences. (Running on oeis4.)