OFFSET
1,1
COMMENTS
The palindromes in A110223.
MATHEMATICA
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]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Jul 16 2005
STATUS
approved