A065323 58 'Reverse and Add' steps are needed to reach a palindrome.
147996, 148896, 149796, 157986, 158886, 159786, 167976, 168876, 169776, 177966, 178866, 179766, 187956, 188856, 189756, 190296, 191196, 192096, 197946, 198846, 199746, 247995, 248895, 249795, 257985, 258885, 259785, 267975, 268875, 269775
Offset: 0
Programs
-
Mathematica
Select[Range[270000],Position[NestList[#+IntegerReverse[#]&,#,58],?PalindromeQ] == {{59}}&] (* _Harvey P. Dale, May 05 2018 *)
Comments