0,2

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]]]] ]]]]; p = NestList[ NextPalindrome, 1, 10^5]; Table[ p[[10^n]], {n, 0, 5}]

Cf. A050250, A099280.

Cf. A103404.

Adjacent sequences: A083813 A083814 A083815 this_sequence A083817 A083818 A083819

Sequence in context: A100369 A024150 A052071 this_sequence A004656 A143016 A127961

nonn,base

Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 17 2003

More terms from Ray Chandler (rayjchandler(AT)sbcglobal.net), Jul 23 2003