This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A070049 #6 Oct 04 2013 09:56:36 %S A070049 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 A070049 41,43,44,45,48,50,52,53,54,57,58,59,61,63,64,65,68,72,73,74,76,80,81, %U A070049 82,85,89,90,91,96,97,98,100,101,104,106,108,109,113,116,117,122,125 %N A070049 Sum of two perfect powers. %o A070049 (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 A070049 Cf. A001597, complement of A075434. %K A070049 nonn,easy %O A070049 1,1 %A A070049 Sharon Sela (sharonsela(AT)hotmail.com), May 06 2002 %E A070049 More terms from _Rick L. Shepherd_, Aug 24 2002