The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A289019 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A289019

Length of n-th iterate of the mapping 00->0010, 01->010, 10->000, starting with 00.
(history; published version)

#4 by N. J. A. Sloane at Tue Jun 27 21:37:07 EDT 2017

STATUS

proposed

approved

#3 by Clark Kimberling at Tue Jun 27 17:25:37 EDT 2017

STATUS

editing

proposed

#2 by Clark Kimberling at Tue Jun 27 11:45:28 EDT 2017

NAME

allocated for Clark KimberlingLength of n-th iterate of the mapping 00->0010, 01->010, 10->000, starting with 00.

DATA

2, 4, 7, 12, 22, 39, 69, 122, 217, 386, 687, 1224, 2181, 3883, 6910, 12305, 21906, 38991, 69421, 123609, 220110, 391929, 697931, 1242873, 2213237, 3941323, 7018445, 12497917, 22255832, 39632383, 70576606, 125680814, 223808756

OFFSET

1,1

MATHEMATICA

z = 32; (* number of iterates *)

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];

w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "010", "10" -> "000"}]

Table[StringLength[w[n]], {n, 0, z}] (* A289019 *)

CROSSREFS

Cf. A289016.

KEYWORD

allocated

nonn,easy

AUTHOR

Clark Kimberling, Jun 27 2017

STATUS

approved

editing

#1 by Clark Kimberling at Wed Jun 21 20:44:45 EDT 2017

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved