login
A307009
Numbers that are both lucky-indexed primes and prime-indexed lucky numbers.
2
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,1
COMMENTS
Intersection of A032605 and A032606.
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 19 2019
STATUS
approved