OFFSET
2,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 2..1000
Vladimir Shevelev, Theorems on twin primes-dual case, arXiv:0912.4006 [math.GM], 2009-2014.
MATHEMATICA
m = 50; v = Table[0, {m}]; lpf[n_] := FactorInteger[n][[1, 1]]; aQ[n_] := (! PrimeQ[2 n - 3] || ! PrimeQ[2 n - 1]) && lpf[2 n - 3] < lpf[2 n - 1]; c = 0; n = 1; While[c < m - 1, If[aQ[n], s = PrimePi[lpf[2 n - 3]]; If[s > 1 && s <= m && v[[s]] == 0, v[[s]] = n; c++]]; n++]; Rest[v] (* Amiram Eldar, Sep 12 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Mar 04 2010
EXTENSIONS
More terms from Amiram Eldar, Sep 12 2019
STATUS
approved