The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A041013

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A041013

Reverse or double: if reverse of a(n) > a(n), then a(n+1) = a(n) reversed, otherwise a(n+1) = 2*a(n).
(history; published version)

#23 by Harvey P. Dale at Wed Aug 23 19:49:48 EDT 2023

STATUS

editing

approved

#22 by Harvey P. Dale at Wed Aug 23 19:49:46 EDT 2023

MATHEMATICA

NestList[If[IntegerReverse[#]>#, IntegerReverse[#], 2#]&, 1, 40] (* Harvey P. Dale, Aug 23 2023 *)

STATUS

approved

editing

#21 by Charles R Greathouse IV at Sat Oct 12 15:29:00 EDT 2013

AUTHOR

Dann Toliver (fsdrt(AT)hotmail.com)

Dann Toliver

Discussion

Sat Oct 12

15:29

OEIS Server: https://oeis.org/edit/global/2022

#20 by Charles R Greathouse IV at Sat Jul 13 12:02:04 EDT 2013

LINKS

_Reinhard Zumkeller_, , <a href="/A041013/b041013.txt">Table of n, a(n) for n = 0..1000</a>

Discussion

Sat Jul 13

12:02

OEIS Server: https://oeis.org/edit/global/1934

#19 by N. J. A. Sloane at Fri Feb 22 21:36:53 EST 2013

LINKS

_Reinhard Zumkeller, _, <a href="/A041013/b041013.txt">Table of n, a(n) for n = 0..1000</a>

PROG

-- _Reinhard Zumkeller, _, Aug 08 2011

Discussion

Fri Feb 22

21:36

OEIS Server: https://oeis.org/edit/global/1866

#18 by Harvey P. Dale at Fri Jan 25 12:19:34 EST 2013

STATUS

editing

approved

#17 by Harvey P. Dale at Fri Jan 25 12:19:17 EST 2013

MATHEMATICA

rd[n_]:=Module[{rev=FromDigits[Reverse[IntegerDigits[n]]]}, If[ rev>n, rev, 2n]]; NestList[rd, 1, 40] (* Harvey P. Dale, Jan 25 2013 *)

STATUS

approved

editing

#16 by OEIS Server at Tue Aug 09 12:25:46 EDT 2011

LINKS

Reinhard Zumkeller, <a href="/A041013/b041013_1.txt">Table of n, a(n) for n = 0..1000</a>

#15 by T. D. Noe at Tue Aug 09 12:25:46 EDT 2011

STATUS

proposed

approved

Discussion

Tue Aug 09

12:25

OEIS Server: Installed new b-file as b041013.txt.  Old b-file is now b041013_1.txt.

#14 by Reinhard Zumkeller at Tue Aug 09 00:29:15 EDT 2011

STATUS

editing

proposed