A004853 Numbers that are the sum of at most 2 nonzero 6th powers.

0, 1, 2, 64, 65, 128, 729, 730, 793, 1458, 4096, 4097, 4160, 4825, 8192, 15625, 15626, 15689, 16354, 19721, 31250, 46656, 46657, 46720, 47385, 50752, 62281, 93312, 117649, 117650, 117713, 118378, 121745, 133274, 164305, 235298, 262144, 262145

Offset

1,3

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

N:= 10^7: # to get all terms <= N
sort(select(`<=`, [seq(seq(a^6+b^6, b=0..a), a=0..floor(N^(1/6)))], N)); # Robert Israel, Aug 24 2015

Mathematica

Reap[For[n = 0, n < 300000, n++, If[MatchQ[PowersRepresentations[n, 2, 6], {{_, _}, ___}], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Oct 30 2017 *)

Prog

(PARI) lista(nn)=v = []; for (n=0, nn, v = concat(v, n^6); for (k=1, n, if ((nk=n^6+k^6) < (n+1)^7, v = concat(v, nk)); ); ); vecsort(v); \\ Michel Marcus, Aug 26 2015)

Crossrefs

Cf. A001014 (6th powers), A003358 (exactly 2 nonzero 6th powers).

Sequence in context: A234279 A109667 A330059 * A249073 A064010 A120829

Adjacent sequences: A004850 A004851 A004852 * A004854 A004855 A004856

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved