OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
FasterRamanujanPrimeList[n_] := With[{T = Table[{k, PrimePi[k] - PrimePi[k/2]}, {k, Prime[3*n]}]}, Table[1 + First[Last[Select[T, Last[#] == i - 1 &]]], {i, 1, n}]]; Select[Partition[FasterRamanujanPrimeList[222], 2, 1], First[#] == Last[#] - 2 &]//Flatten (* Robert P. P. McKone, Mar 21 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Sondow, May 16 2011
STATUS
approved