|
%I #6 Oct 04 2013 09:56:36
%S 2,5,8,9,10,12,13,16,17,18,20,24,25,26,28,29,31,32,33,34,35,36,37,40,
%T 41,43,44,45,48,50,52,53,54,57,58,59,61,63,64,65,68,72,73,74,76,80,81,
%U 82,85,89,90,91,96,97,98,100,101,104,106,108,109,113,116,117,122,125
%N Sum of two perfect powers.
%o (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
%Y Cf. A001597, complement of A075434.
%K nonn,easy
%O 1,1
%A Sharon Sela (sharonsela(AT)hotmail.com), May 06 2002
%E More terms from _Rick L. Shepherd_, Aug 24 2002
|
