A065212 Numbers which need seven 'Reverse and Add' steps to reach a palindrome.
188, 190, 197, 287, 296, 386, 395, 485, 584, 593, 683, 692, 782, 791, 881, 890, 980, 1394, 1484, 1574, 1664, 1754, 1844, 1898, 1934, 1988, 1992, 1994, 1999, 2393, 2483, 2573, 2663, 2753, 2843, 2897, 2933, 2987, 2991, 2993, 2998, 3089, 3179, 3269, 3359
Offset: 1
Links
Programs
-
Mathematica
lenQ[n_]:= Length[NestWhileList[# + FromDigits[Reverse[IntegerDigits[#]]]&, n,#!= FromDigits[Reverse[IntegerDigits[#]]]&, 1, 10]] == 8; Select[Range[500], lenQ] (* Vincenzo Librandi, Sep 24 2013 *)
Extensions
Offset changed from 0 to 1 by Harry J. Smith, Oct 14 2009
Comments