A100806 a(1) = 1; for n>=2, a(n) = A001221(n)-th positive integer not yet in the sequence.

1, 2, 3, 4, 5, 7, 6, 8, 9, 11, 10, 13, 12, 15, 16, 14, 17, 19, 18, 21, 22, 23, 20, 25, 24, 27, 26, 29, 28, 32, 30, 31, 34, 35, 36, 37, 33, 39, 40, 41, 38, 44, 42, 45, 46, 47, 43, 49, 48, 51, 52, 53, 50, 55, 56, 57, 58, 59, 54, 62, 60, 63, 64, 61, 66, 68, 65, 69, 70, 72, 67, 73

Offset

1,2

Comments

A permutation of the positive integers.

Links

Michael De Vlieger, Table of n, a(n) for n = 1..30030

Index entries for sequences that are permutations of the natural numbers

Mathematica

Block[{a = {1}, nn = 72, s, P = FoldList[Times, Prime@ Range@ 12]}, s = Range[2, nn + LengthWhile[P, # <= nn &]]; Do[AppendTo[a, s[[PrimeNu@ i ]]]; s = Complement[s, a], {i, 2, nn}]; a] (* Michael De Vlieger, Sep 24 2017 *)

Crossrefs

Cf. A001221, A101212.

Inverse: A102451; A102450(n) = a(a(n)).

Cf. A102452.

Sequence in context: A358733 A086431 A143579 * A102451 A370791 A370790

Adjacent sequences: A100803 A100804 A100805 * A100807 A100808 A100809

Keyword

nonn

Author

Leroy Quet, Jan 04 2005

Extensions

More terms from Reinhard Zumkeller, Jan 09 2005

Status

approved