login
Indices of primes in A000219.
3

%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