login
Index of A355012(n) in A246547.
3

%I #10 Jun 19 2022 02:21:11

%S 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,

%T 39,41,43,44,27,45,48,38,16,53,54,55,22,57,49,51,52,33,71,76,77,60,63,

%U 64,65,67,23,68,70,88,20,89,90,72,75,96,97,98,42,79,80,81

%N Index of A355012(n) in A246547.

%H Michael De Vlieger, <a href="/A355014/b355014.txt">Table of n, a(n) for n = 1..1009</a>

%t 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[#] &] ]]

%Y Cf. A090252, A246547, A355012, A355013.

%K nonn

%O 1,2

%A _Michael De Vlieger_, Jun 15 2022