A307008 -id:A307008 - cp's OEIS frontend

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

Amiram Eldar, Mar 19 2019

nonn

Intersection of A032605 and A032606.

Cf. A032605, A032606, A307008, A307010.

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

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

Original entry on oeis.org

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

Amiram Eldar, Mar 19 2019

nonn

Intersection of A006450, A032639, A032605 and A032606.

Intersection of A307008 and A307009.

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

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica