A063050 a(n) = number of 'Reverse and Add!' operations that have to be applied to the n-th term of A063049 in order to obtain a term in the trajectory of 196.

1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 0, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1

Offset: 0

Author

Klaus Brockhaus, Jul 07 2001

Keywords

• base
• nonn

Examples

			394 is a term of A063049. One 'Reverse and Add!' operation applied to 394 leads to a term (887) in the trajectory of 196, so the corresponding term of the present sequence is 1.
		

Links

• Index entries for sequences related to Reverse and Add!

Crossrefs

A023108, A033865, A006960, A063049.

Programs

Mathematica

limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 196, limit];
y = Select[Range[197, 4942],
   Intersection[NestList[ # + IntegerReverse[#] &, #, limit],
      x] != {} &];
Table[
 Length@NestWhileList[# + IntegerReverse[#] &,
    y[[i]], ! MemberQ[x, #] &] - 1, {i, Length[y]}]
(* Robert Price, Oct 21 2019 *)