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
KEYWORD
nonn,easy
AUTHOR
STATUS
approved