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

Author

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

Keywords

• nonn
• easy

Crossrefs

Cf. A001597, complement of A075434.

Programs

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

Extensions

More terms from Rick L. Shepherd, Aug 24 2002