A307010 Numbers that are prime-indexed primes, lucky-indexed lucky numbers, lucky-indexed primes and prime-indexed lucky numbers.

367, 687331, 1983913, 2278033, 2400793, 2760361, 3531247, 5840767, 9429223, 11894593, 13201483, 13371751, 13597357, 13755361, 19782127, 24772663, 25607341, 34723783, 51279127, 56208967, 59215327, 71039257, 74498731, 83170537, 97983187, 109510909, 124762969

Offset: 1

Author

Amiram Eldar, Mar 19 2019

Keywords

• nonn

Comments

Intersection of A006450, A032639, A032605 and A032606.

Intersection of A307008 and A307009.

Crossrefs

Cf. A006450, A031157, A032605, A032606, A032639, A307008, A307009.

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] &]]]; pp = P[[Select[P, # <= Length[P] &]]]; ll = L[[Select[L, # <= Length[L] &]]]; Intersection[lp, pl, pp, ll] (* after Jean-François Alcover at A000959 *)