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 A110222 #5 Mar 30 2012 17:31:16
%S A110222 6,66,77,88,111,181,202,363,383,434,454,474,494,555,565,595,606,646,
%T A110222 666,707,717,747,787,818,838,858,929,949,959,979,989,1221,1551,1661,
%U A110222 2002,2442,2662,3003,3443,3773,3883,4114,4334,4444,4774,4884,5005,5115,5335
%N A110222 Palindromic numbers which are not the absolute difference of a cube and a square.
%C A110222 The palindromes in A110223.
%t A110222 NextPalindrome[n_] := Block[ {l = Floor[ Log[10, n] + 1], idn = IntegerDigits[n]}, If[ Union[ idn] == {9}, Return[n + 2], If[l < 2, Return[n + 1], If[ FromDigits[ Reverse[ Take[ idn, Ceiling[l/2]]]] > FromDigits[ Take[ idn, -Ceiling[l/2]]], FromDigits[ Join[ Take[ idn, Ceiling[l/2]], Reverse[ Take[ idn, Floor[l/2]]]]], idfhn = FromDigits[ Take[ idn, Ceiling[l/2]]] + 1; idp = FromDigits[ Join[ IntegerDigits[ idfhn], Drop[ Reverse[ IntegerDigits[ idfhn]], Mod[l, 2]]]]]]]]; t1 = NestList[ NextPalindrome, 0, 130]; t2 = Union[ Flatten[ Table[ Select[ Table[ Abs[n^3 - m^2], {m, 0, 10000}], # < 10^3 &], {n, -5000, 5000}]]]; Take[ Complement[t1, Intersection[t1, t2]], 50]
%Y A110222 Cf. A109879, A074981, A110223.
%K A110222 base,nonn
%O A110222 1,1
%A A110222 _Robert G. Wilson v_, Jul 16 2005