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 A307008 #8 Mar 26 2019 19:44:11
%S A307008 31,367,991,1087,1471,3259,3559,5851,6661,6841,8719,9661,10723,11953,
%T A307008 13513,18181,20341,21529,22651,23563,25057,31189,39451,70207,72727,
%U A307008 75937,81931,85843,87931,92569,93169,108643,131071,136483,143797,149503,150991,163309
%N A307008 Numbers that are both prime-indexed primes and lucky-indexed lucky numbers.
%C A307008 Intersection of A006450 and A032639.
%t A307008 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}]]]; ll = L[[Select[L, # <= Length[L] &]]]; pp = Prime@ Prime@ Range@ PrimePi@ PrimePi@ (2m); Intersection[pp,ll] (* after Jean-François Alcover at A000959 and Giovanni Resta at A303403 *)
%Y A307008 Cf. A006450, A031157, A032639, A057698, A307009, A307010.
%K A307008 nonn
%O A307008 1,1
%A A307008 _Amiram Eldar_, Mar 19 2019