login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Iterates A212439, starting from 0.
3

%I #7 Jul 13 2013 12:04:27

%S 0,1,3,6,13,27,54,108,216,433,867,1734,3469,6939,13878,27756,55512,

%T 111025,222050,444101,888202,1776404,3552808,7105617,14211235,

%U 28422470,56844941,113689883,227379766,454759532,909519064,1819038129,3638076259,7276152518

%N Iterates A212439, starting from 0.

%C 2*a(n) <= a(n+1) <= 2*a(n) + 1.

%H Reinhard Zumkeller, <a href="/A212444/b212444.txt">Table of n, a(n) for n = 0..100</a>

%H Benjamin Chaffin and N. J. A. Sloane, <a href="http://neilsloane.com/doc/CNC.pdf">The Curling Number Conjecture</a>, preprint.

%F a(n+1) = A212439(a(n)) = 2*a(n) + A181935(a(n)) mod 2, a(0) = 0.

%o (Haskell)

%o a212444 n = a212444_list !! n

%o a212444_list = iterate a212439 0

%K nonn

%O 0,3

%A _Reinhard Zumkeller_, May 17 2012