A066253 a(n) = A066249(A066249(n)).

5, 3, 7, 1, 8, 2, 6, 4, 9, 10, 11, 12, 13, 18, 16, 22, 14, 30, 15, 42, 17, 46, 28, 60, 19, 70, 20, 72, 36, 82, 21, 100, 40, 108, 23, 112, 24, 136, 25, 148, 52, 150, 26, 166, 58, 178, 27, 192, 29, 222, 66, 228, 31, 232, 32, 240, 33, 250, 78, 262, 34, 306, 35, 312, 88, 336

Offset: 1

Author

Reinhard Zumkeller, Dec 09 2001

Keywords

• nonn

Comments

Permutation of natural numbers.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• Index entries for sequences that are permutations of the natural numbers.

Crossrefs

Cf. A066249.

Programs

Mathematica

seq[nmax_] := Module[{p = Prime[Range[nmax]], s}, s = Riffle[Take[Complement[Range[2, p[[-1]]], p] - 1, Length[p]], p - 1]; s[[TakeWhile[s, # <= Length[s] &]]]]; seq[100] (* Amiram Eldar, Mar 19 2025 *)