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 A307009 #6 Mar 26 2019 19:44:18
%S A307009 367,487,3499,5503,11677,15187,15661,20359,27091,31723,36529,43669,
%T A307009 60631,62047,70783,72493,74101,78487,93139,94789,105529,123619,128257,
%U A307009 148249,164377,191491,192931,210739,240379,242413,271501,276343,282589,290119,299107
%N A307009 Numbers that are both lucky-indexed primes and prime-indexed lucky numbers.
%C A307009 Intersection of A032605 and A032606.
%t A307009 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] &]]]; Intersection[lp, pl] (* after Jean-François Alcover at A000959 *)
%Y A307009 Cf. A032605, A032606, A307008, A307010.
%K A307009 nonn
%O A307009 1,1
%A A307009 _Amiram Eldar_, Mar 19 2019