%I #13 Sep 18 2020 11:24:28
%S 2,4,11,30,32,40,50,85,100,237,381,733,805,882,1015,1650,2439,3163,
%T 3335,3506,3675,4152,4446,4576,5010,5101,6045,6760,7412,8178,8562,
%U 10026,10527,10888,12406,12693,13479,16109,16978,17962,20696,22483,25383,31458,38956
%N Indices of primes in A000219.
%H Vaclav Kotesovec, <a href="/A285216/b285216.txt">Table of n, a(n) for n = 1..82</a>
%e 11 is in the sequence because A000219(11) = 859 is prime.
%t A000219 = Cases[Import["https://oeis.org/A000219/b000219.txt", "Table"], {_, _}][[All, 2]];
%t Flatten[Position[A000219, _?PrimeQ]] - 1 (* _Jean-François Alcover_, Sep 17 2020, as of todate, this only gives 27 terms *)
%Y Cf. A000219, A035359, A046063.
%K nonn
%O 1,1
%A _Vaclav Kotesovec_, Apr 14 2017