login
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.
1

%I #15 Dec 14 2023 05:12:08

%S 19,28,37,46,55,64,73,82,91,19,28,37,46,55,64,73,82,91,19,28,37,46,55,

%T 64,73,82,91,19,28,37,46,55,64,73,82,91,19,28,37,46,55,64,73,82,91,19,

%U 28,37,46,55,64,73,82,91,19,28,37,46,55,64,73,82,91,19,28,37,46,55,64

%N 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.

%C Every such sequence is periodic. Sequences for a(1) = 1 to 18 are cyclic with a period of 1.

%e 19 -> 209 -> 902 -> 82 -> 28.

%t mrdr[n_]:=FromDigits[Reverse[IntegerDigits[FromDigits[ Reverse[ IntegerDigits[ 11n]]]/ 11]]]; NestList[mrdr,19,70] (* _Harvey P. Dale_, Oct 01 2015 *)

%K base,easy,nonn

%O 0,1

%A _Amarnath Murthy_, May 27 2003

%E Edited by _Patrick De Geest_ and _N. J. A. Sloane_, Jun 03 2003