A355014 Index of A355012(n) in A246547.

1, 3, 2, 5, 4, 6, 8, 11, 7, 14, 12, 17, 10, 19, 21, 9, 24, 18, 25, 13, 28, 29, 30, 34, 15, 36, 39, 41, 43, 44, 27, 45, 48, 38, 16, 53, 54, 55, 22, 57, 49, 51, 52, 33, 71, 76, 77, 60, 63, 64, 65, 67, 23, 68, 70, 88, 20, 89, 90, 72, 75, 96, 97, 98, 42, 79, 80, 81

Offset: 1

Author

Michael De Vlieger, Jun 15 2022

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..1009

Crossrefs

Cf. A090252, A246547, A355012, A355013.

Programs

Mathematica

With[{s = Map[ToExpression@ StringSplit[#][[-1]] &, Import["https://oeis.org/A246547/b246547.txt", "Data"][[2 ;; -1]]]}, Map[FirstPosition[s, #][[1]] &, Select[Import["https://oeis.org/A090252/b090252.txt", "Data"][[1 ;; 8000, -1]], CompositeQ[#] && PrimePowerQ[#] &] ]]