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,1

Comments

Intersection of A006450, A032639, A032605 and A032606.

Intersection of A307008 and A307009.

Links

Table of n, a(n) for n=1..27.

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

Crossrefs

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

Sequence in context: A067891 A142579 A336981 * A098823 A252222 A173055

Adjacent sequences: A307007 A307008 A307009 * A307011 A307012 A307013

Keyword

nonn

Author

Amiram Eldar, Mar 19 2019

Status

approved