OFFSET
1,1
COMMENTS
There are 664 terms < 8*10^9, a(664)=7999968373. - Zak Seidov, Jul 24 2009
This is an infinite sequence. To see why, consider the (N,N+1) pair N = 16*k^6 - 12*k^4 + 6*k^2 - 2 = (2*k^2 - k - 1)^3 + (2*k^2 + k -1)^3 and N + 1 = 16*k^6 - 12*k^4 + 6*k^2 - 1 = (2*k^2)^3 + (2*k^2 - 1)^3. - Ant King, Sep 20 2013
LINKS
Zak Seidov, Table of n, a(n) for n = 1..664
EXAMPLE
854 = 9^3 + 5^3 and 855 = 8^3 + 7^3;
4940 = 17^3 + 3^3 and 4941 = 13^3 + 14^3.
MATHEMATICA
{m=100, k=3, m^k}; t=Union[Flatten[Table[Table[w^k+q^k, {w, 1, m}], {q, 1, m}]]]; dt=Delete[ -RotateRight[t]+t, 1]; p=Part[t, Flatten[Position[dt, 1]]]; p
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 01 2003
EXTENSIONS
Corrected and extended by Zak Seidov, Jul 24 2009
Name and Example edited by Jon E. Schoenfield, Jul 29 2017
STATUS
approved