OFFSET
1,1
FORMULA
EXAMPLE
The first prime is 2. The 2nd lower twin prime is 5, which gives the first entry.
MATHEMATICA
Module[{maxp=50, tp}, tp=Select[Partition[Prime[Range[maxp*Prime[maxp]]], 2, 1], #[[2]] - #[[1]]==2&][[All, 1]]; Table[tp[[n]], {n, Prime[ Range[ maxp]]}]] (* Harvey P. Dale, Aug 06 2018 *)
PROG
(PARI) twinl(n) = { my(c=0, x=1); while(c<n, if(isprime(prime(x)+2), c++); x++; ); prime(x-1) }
a(n) = twinl(prime(n))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, May 17 2007
STATUS
approved