A070049 Sum of two perfect powers.

2, 5, 8, 9, 10, 12, 13, 16, 17, 18, 20, 24, 25, 26, 28, 29, 31, 32, 33, 34, 35, 36, 37, 40, 41, 43, 44, 45, 48, 50, 52, 53, 54, 57, 58, 59, 61, 63, 64, 65, 68, 72, 73, 74, 76, 80, 81, 82, 85, 89, 90, 91, 96, 97, 98, 100, 101, 104, 106, 108, 109, 113, 116, 117, 122, 125

Offset

1,1

Links

Table of n, a(n) for n=1..66.

Prog

(PARI) lista(nn) = {vec = vector(nn, i, i); pp = concat(1, select(i->ispower(i) , vec)); sumpp = Set(); for (i = 1, #pp, for (j = 1, #pp, sumpp = Set(concat(sumpp, pp[i]+pp[j])); ); ); for (i = 1, #sumpp, if (sumpp[i] <= nn, print1(sumpp[i], ", ")); ); } \\ Michel Marcus, Oct 04 2013

Crossrefs

Cf. A001597, complement of A075434.

Sequence in context: A276784 A153129 A076871 * A085254 A274035 A068537

Adjacent sequences: A070046 A070047 A070048 * A070050 A070051 A070052

Keyword

nonn,easy

Author

Sharon Sela (sharonsela(AT)hotmail.com), May 06 2002

Extensions

More terms from Rick L. Shepherd, Aug 24 2002

Status

approved