A102450 -id:A102450 - cp's OEIS frontend

A102452 A102450(A102450(n)).

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

Offset: 1

Reinhard Zumkeller, Jan 09 2005

nonn

Permutation of the positive integers with inverse A102450.

Index entries for sequences that are permutations of the natural numbers

Cf. A100806.

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

Original entry on oeis.org

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

Leroy Quet, Jan 04 2005

nonn

A permutation of the positive integers.

Michael De Vlieger, Table of n, a(n) for n = 1..30030
Index entries for sequences that are permutations of the natural numbers

Cf. A001221, A101212.
Inverse: A102451; A102450(n) = a(a(n)).
Cf. A102452.

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 *)

More terms from Reinhard Zumkeller, Jan 09 2005

cp's OEIS Frontend

A102452 A102450(A102450(n)).

Views

Author

Keywords

Comments

Links

Crossrefs