login
Start with 1 and repeatedly reverse the digits and add 69 to get the next term.
0

%I #6 Mar 26 2015 15:42:24

%S 1,70,76,136,700,76,136,700,76,136,700,76,136,700,76,136,700,76,136,

%T 700,76,136,700,76,136,700,76,136,700,76,136,700,76,136,700,76,136,

%U 700,76,136,700,76,136,700,76,136,700,76,136,700,76,136,700,76,136,700,76,136

%N Start with 1 and repeatedly reverse the digits and add 69 to get the next term.

%H N. J. A. Sloane and others, <a href="/wiki/Sequences_of_RADD_type">Sequences of RADD type</a>, OEIS wiki.

%e After 2 steps enters a cycle of 3.

%t NestList[FromDigits[Reverse[IntegerDigits[#]]]+69&,1,70] (* or *) PadRight[{1,70},70,{136,700,76}] (* _Harvey P. Dale_, Mar 26 2015 *)

%Y Cf. A117828, A117816, A117817.

%K base,nonn,less

%O 1,2

%A Luc Stevens (lms022(AT)yahoo.com), May 14 2006