OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
7 is in the sequence since (5,7) are twin primes, and (7,9) are twin lucky numbers.
MATHEMATICA
L = Table[2*i + 1, {i, 0, 10^5}]; For[n = 2, n < Length[L], r = L[[n++]]; L = ReplacePart[L, Table[r*i -> Nothing, {i, 1, Length[L]/r}]]]; L[[Select[Range[1, Length[L] - 1], PrimeQ[L[[#]] - 2] && PrimeQ [L[[#]]] && L[[# + 1]] == L[[#]] + 2 &]]] (* after Jean-François Alcover at A000959 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jun 25 2017
STATUS
approved