A216280 Number of nonnegative solutions to the equation x^4 + y^4 = n.

1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset

1,635318657

Comments

The first n with a(n) > 1 is 635318657 = 41 * 113 * 241 * 569, with a(635318657) = 2. Izadi, Khoshnam, & Nabardi show that for any n with a(n) > 1, the elliptic curve y^2 = x^3 - nx has rank at least 3. According to gp, y^2 = x^3 - 635318657x has analytic rank 4 (and first nonzero derivative around 35741.7839). - Charles R Greathouse IV, Jan 12 2017

Links

Antti Karttunen, Table of n, a(n) for n = 1..16561

F. A. Izadi, F. Khoshnam, K. Nabardi, Sums of two biquadrates and elliptic curves of rank ≥4 (2012). arXiv:1202.5676 [math.NT], 2012.

F. A. Izadi, F. Khoshnam, K. Nabardi, Sums of two biquadrates and elliptic curves of rank ≥ 4, Math. J. Okayama Univ. 56 (2014), 51-63.

Mathematica

Reap[For[n = 1, n <= 1000, n++, r = Reduce[0 <= x <= y && x^4 + y^4 == n, {x, y}, Integers]; sols = Which[r === False, 0, r[[0]] == And, 1, r[[0]] == Or, Length[r], True, Print[n, " ", r]]; If[sols != 0, Print[n, " ", sols, " ", r]]; Sow[sols]]][[2, 1]] (* Jean-François Alcover, Feb 22 2019 *)

Prog

(PARI) a(n)=my(t=thue(thueinit('x^4+1, 1), n)); sum(i=1, #t, t[i][1]>=0 && t[i][2]>=t[i][1]) \\ Charles R Greathouse IV, Jan 12 2017
(PARI) first(n)=my(T=thueinit('x^4+1, 1), v=vector(n), t); for(k=1, n, t=thue(T, k); v[k]=sum(i=1, #t, t[i][1]>=0 && t[i][2]>=t[i][1])); v \\ Charles R Greathouse IV, Jan 12 2017

Crossrefs

Cf. A025455, A025446, A000161, A025426, A216284.

Cf. A004831 (positions of nonzero terms).

Sequence in context: A016383 A279485 A298859 * A370118 A014022 A014035

Adjacent sequences: A216277 A216278 A216279 * A216281 A216282 A216283

Keyword

nonn

Author

V. Raman, Sep 03 2012

Extensions

Offset added by Charles R Greathouse IV, Jan 12 2017

Status

approved