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,2

Links

Rémy Sigrist, Table of n, a(n) for n = 1..2500

Index entries for sequences that are permutations of the natural numbers

Example

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

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

Crossrefs

Cf. A297075.

Sequence in context: A367082 A039864 A101906 * A120241 A352714 A355435

Adjacent sequences: A297400 A297401 A297402 * A297404 A297405 A297406

Keyword

nonn

Author

Rémy Sigrist, Dec 29 2017

Status

approved