A307009 Numbers that are both lucky-indexed primes and prime-indexed lucky numbers.

367, 487, 3499, 5503, 11677, 15187, 15661, 20359, 27091, 31723, 36529, 43669, 60631, 62047, 70783, 72493, 74101, 78487, 93139, 94789, 105529, 123619, 128257, 148249, 164377, 191491, 192931, 210739, 240379, 242413, 271501, 276343, 282589, 290119, 299107

Offset: 1

Author

Amiram Eldar, Mar 19 2019

Keywords

• nonn

Comments

Intersection of A032605 and A032606.

Crossrefs

Cf. A032605, A032606, A307008, A307010.

Programs

Mathematica

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 *)