OFFSET
1,1
COMMENTS
Subsequence of A023108.
REFERENCES
Popular Computing (Calabasas, CA), The 196 Problem, Vol. 3 (No. 30, Sep 1975), page PC30-9. Gives initial terms of this sequence.
EXAMPLE
The trajectory of 394 reaches 887 in one step and 887 is a term in the trajectory of 196, so 394 belongs to the present sequence. The corresponding term in A063050, giving the number of steps, accordingly is 1.
MATHEMATICA
Block[{nn = 10^2, s}, s = NestList[# + IntegerReverse@ # &, 196, nn]; Rest@ Select[Range@ 5000, Length@NestWhileList[# + IntegerReverse@ # &, #, FreeQ[s, #] &, 1, nn] <= nn &]] (* Michael De Vlieger, Jan 21 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, Jul 07 2001
EXTENSIONS
Offset corrected by Sean A. Irvine, Apr 17 2023
STATUS
approved