login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A232564 Inverse permutation of the sequence of positive integers at A232563. 2
1, 2, 4, 3, 6, 11, 21, 5, 9, 17, 33, 8, 15, 29, 56, 7, 13, 25, 48, 12, 23, 44, 85, 22, 42, 81, 156, 41, 79, 152, 293, 10, 19, 37, 71, 18, 35, 67, 129, 34, 65, 125, 241, 64, 123, 237, 457, 16, 31, 60, 115, 30, 58, 111, 214, 57, 109, 210, 405, 108, 208, 401 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

MATHEMATICA

z = 8; g[1] = {1}; g[2] = {2, 4}; g[n_] := Riffle[g[n - 1] + 1, 4 g[n - 1]]; j[2] = Join[g[1], g[2]]; j[n_] := Join[j[n - 1], g[n]]; g1[n_] := DeleteDuplicates[DeleteCases[g[n], Alternatives @@ j[n - 1]]]; g1[1] = g[1]; g1[2] = g[2]; t = Flatten[Table[g1[n], {n, 1, z}]]  (* A232563 *)

Table[Length[g1[n]], {n, 1, z}]  (* A001631 *)

t1 = Flatten[Table[Position[t, n], {n, 1, 200}]]  (* A232564 *)

CROSSREFS

Cf. A232559, A232563.

Sequence in context: A064273 A257986 A327743 * A134561 A258046 A334384

Adjacent sequences:  A232561 A232562 A232563 * A232565 A232566 A232567

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Nov 26 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 10 00:21 EDT 2022. Contains 356026 sequences. (Running on oeis4.)