The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #6 Mar 26 2019 19:44:18
%S 367,487,3499,5503,11677,15187,15661,20359,27091,31723,36529,43669,
%T 60631,62047,70783,72493,74101,78487,93139,94789,105529,123619,128257,
%U 148249,164377,191491,192931,210739,240379,242413,271501,276343,282589,290119,299107
%N Numbers that are both lucky-indexed primes and prime-indexed lucky numbers.
%C Intersection of A032605 and A032606.
%t 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 Cf. A032605, A032606, A307008, A307010.
%K nonn
%O 1,1
%A _Amiram Eldar_, Mar 19 2019