login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A233138 Concatenated reversed shortest (x+1,2x)-codes for the positive integers. 4
1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 1, 2, 2, 1, 2, 2, 2, 1, 2 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Concatenate the representations of the positive integers in A233137, and then separate the digits by commas.

LINKS

Clark Kimberling, Table of n, a(n) for n = 1..10000

EXAMPLE

A233137 = (1,2,12,22,122,212,...), so that A233138 = (1,2,1,2,2,2,1,2,2,2,1,2,...)

MATHEMATICA

b[x_] := b[x] = If[OddQ[x], x - 1, x/2]; u[n_] := 2 - Mod[Drop[FixedPointList[b, n], -3], 2]; u[1] = {1}; t = Table[u[n], {n, 1, 30}]; Table[FromDigits[u[n]], {n, 1, 50}]  (* A233137 *)

Flatten[t]  (* A233138 *)

Table[FromDigits[Reverse[u[n]]], {n, 1, 30}]  (* A233135 *)

Flatten[Table[Reverse[u[n]], {n, 1, 30}]]     (* A233136 *)

CROSSREFS

Cf. A040039, A135529, A232559, A000045, A233135, A233137, A233138.

Sequence in context: A101422 A070304 A275308 * A214708 A083952 A245225

Adjacent sequences:  A233135 A233136 A233137 * A233139 A233140 A233141

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Dec 05 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 26 05:22 EDT 2019. Contains 323579 sequences. (Running on oeis4.)