login
A355014
Index of A355012(n) in A246547.
3
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,2
LINKS
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[#] &] ]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Jun 15 2022
STATUS
approved