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,41

Links

Table of n, a(n) for n=0..104.

Index entries for sequences related to Reverse and Add!

Example

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.

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 *)

Crossrefs

A023108, A033865, A006960, A063049.

Sequence in context: A373382 A334377 A063053 * A330098 A189024 A304720

Adjacent sequences: A063047 A063048 A063049 * A063051 A063052 A063053

Keyword

base,nonn

Author

Klaus Brockhaus, Jul 07 2001

Status

approved