A065211 Six 'Reverse and Add' steps are needed to reach a palindrome.

79, 97, 182, 281, 380, 779, 799, 889, 977, 988, 997, 1069, 1079, 1159, 1169, 1249, 1259, 1339, 1349, 1429, 1439, 1519, 1529, 1609, 1619, 1699, 1709, 1789, 1799, 1879, 1889, 1896, 1969, 1979, 1986, 2059, 2068, 2078, 2089, 2149, 2158, 2168, 2179, 2239

Offset

1,1

Comments

The number of steps starts at 0, so palindromes (cf. A002113) are excluded.

Links

Table of n, a(n) for n=1..44.

Index entries for sequences related to Reverse and Add!

Mathematica

palQ[n_] := Module[{idn = IntegerDigits[n]}, idn == Reverse[idn]]; pal6Q[ n_]:= Module[{c=NestList[#+FromDigits[Reverse[IntegerDigits[#]]]&, n, 6]}, palQ/@c=={False, False, False, False, False, False, True}]; Select[Range[ 2300], pal6Q] (* Harvey P. Dale, Sep 09 2012 *)

Crossrefs

A002113, A015984, A065206.

Sequence in context: A039436 A043259 A044039 * A106757 A285228 A087537

Adjacent sequences: A065208 A065209 A065210 * A065212 A065213 A065214

Keyword

nonn,base

Author

Klaus Brockhaus, Oct 21 2001

Extensions

OFFSET changed from 0,1 to 1,1 by Harry J. Smith, Oct 14 2009

Status

approved