A084364 Define the operations M: multiply by 11, D: divide by 11, R: reverse digits. Sequence gives trajectory of 19 under action of M,R,D,R.
19, 28, 37, 46, 55, 64, 73, 82, 91, 19, 28, 37, 46, 55, 64, 73, 82, 91, 19, 28, 37, 46, 55, 64, 73, 82, 91, 19, 28, 37, 46, 55, 64, 73, 82, 91, 19, 28, 37, 46, 55, 64, 73, 82, 91, 19, 28, 37, 46, 55, 64, 73, 82, 91, 19, 28, 37, 46, 55, 64, 73, 82, 91, 19, 28, 37, 46, 55, 64
Offset: 0
Examples
19 -> 209 -> 902 -> 82 -> 28.
Programs
-
Mathematica
mrdr[n_]:=FromDigits[Reverse[IntegerDigits[FromDigits[ Reverse[ IntegerDigits[ 11n]]]/ 11]]]; NestList[mrdr,19,70] (* Harvey P. Dale, Oct 01 2015 *)
Extensions
Edited by Patrick De Geest and N. J. A. Sloane, Jun 03 2003
Comments