|
%I #8 Oct 04 2013 09:26:40
%S 1,3,4,6,7,11,14,15,19,21,22,23,27,30,38,39,42,46,47,49,51,55,56,60,
%T 62,66,67,69,70,71,75,77,78,79,83,84,86,87,88,92,93,94,95,99,102,103,
%U 105,107,110,111,112,114,115,118,119,120,121,123,124,131,135,138,139,140
%N Numbers that are not the 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, nn, if (! setsearch(sumpp, i), print1(i, ", ")););} \\ _Michel Marcus_, Oct 04 2013
%Y Cf. A001597, complement of A070049.
%K easy,nonn
%O 1,2
%A _Zak Seidov_, Oct 11 2002
|
