A297403 Inverse to A297075.

1, 2, 4, 3, 6, 8, 10, 5, 7, 12, 14, 16, 18, 20, 22, 9, 24, 26, 28, 36, 30, 32, 34, 40, 11, 38, 13, 50, 42, 44, 46, 15, 48, 52, 54, 19, 56, 58, 60, 62, 64, 66, 68, 76, 78, 70, 72, 74, 21, 80, 82, 98, 84, 86, 88, 92, 90, 94, 96, 100, 102, 104, 122, 17, 106, 108

Offset: 1

Author

Rémy Sigrist, Dec 29 2017

Keywords

• nonn

Examples

			A297075(42) = 29, hence a(29) = 42.
		

Links

• Rémy Sigrist, Table of n, a(n) for n = 1..2500
• Index entries for sequences that are permutations of the natural numbers

Crossrefs

Cf. A297075.

Programs

Mathematica

Take[#, LengthWhile[Differences@ #[[All, 1]], # == 1 &]][[All, -1]] &@ Sort@ MapIndexed[{#1, First@ #2} &, Nest[Append[#, Block[{k = 3, m = FactorInteger[#[[-1]] ][[All, -1]]}, While[Nand[FreeQ[#, k], ! IntersectingQ[m, FactorInteger[k][[All, -1]]]], k++]; k]] &, {1, 2}, 120]] (* Michael De Vlieger, Dec 29 2017 *)