OFFSET
1,1
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
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