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
Keywords
Examples
A297075(42) = 29, hence a(29) = 42.
Links
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 *)