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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A232639 Inverse permutation of the sequence of positive integers at A232638. 9
1, 2, 3, 4, 5, 7, 6, 9, 8, 12, 11, 17, 10, 15, 14, 22, 13, 20, 19, 30, 18, 28, 27, 43, 16, 25, 24, 38, 23, 36, 35, 56, 21, 33, 32, 51, 31, 49, 48, 77, 29, 46, 45, 72, 44, 70, 69, 111, 26, 41, 40, 64, 39, 62, 61, 98, 37, 59, 58, 93, 57, 91, 90, 145, 34, 54 (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 = 14; g[1] = {1}; g[2] = {2}; g[n_] := Riffle[g[n - 1] + 1, 2 g[n - 1] - 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}]]  (* A232638 *)

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

Flatten[Table[Position[t, n], {n, 1, 200}]]  (* A232639 *)

CROSSREFS

Cf. A232559, A232638, A000045.

Sequence in context: A178528 A183084 A185975 * A232638 A023826 A283192

Adjacent sequences:  A232636 A232637 A232638 * A232640 A232641 A232642

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Nov 28 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 October 15 18:11 EDT 2019. Contains 328037 sequences. (Running on oeis4.)