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 A307010 #10 Mar 26 2019 19:44:30
%S A307010 367,687331,1983913,2278033,2400793,2760361,3531247,5840767,9429223,
%T A307010 11894593,13201483,13371751,13597357,13755361,19782127,24772663,
%U A307010 25607341,34723783,51279127,56208967,59215327,71039257,74498731,83170537,97983187,109510909,124762969
%N A307010 Numbers that are prime-indexed primes, lucky-indexed lucky numbers, lucky-indexed primes and prime-indexed lucky numbers.
%C A307010 Intersection of A006450, A032639, A032605 and A032606.
%C A307010 Intersection of A307008 and A307009.
%t A307010 m = 10^4; L = Table[2*i + 1, {i, 0, m}]; For[n = 2, n < Length[L], r = L[[n++]]; L = ReplacePart[L, Table[r*i -> Nothing, {i, 1, Length[L]/r}]]]; P = Select[ Range[2m], PrimeQ]; lp = L[[Select[P, # <= Length[L] &]]]; pl = P[[Select[L, # <= Length[P] &]]]; pp = P[[Select[P, # <= Length[P] &]]]; ll = L[[Select[L, # <= Length[L] &]]]; Intersection[lp, pl, pp, ll] (* after Jean-François Alcover at A000959 *)
%Y A307010 Cf. A006450, A031157, A032605, A032606, A032639, A307008, A307009.
%K A307010 nonn
%O A307010 1,1
%A A307010 _Amiram Eldar_, Mar 19 2019