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