|
|
A129780
|
|
The prime(n)-th lower twin prime.
|
|
0
|
|
|
5, 11, 29, 59, 137, 179, 239, 281, 431, 641, 809, 1031, 1151, 1277, 1427, 1667, 1931, 1997, 2141, 2339, 2549, 2789, 3119, 3359, 3581, 3851, 3929, 4091, 4157, 4259, 5009, 5279, 5639, 5657, 6359, 6551, 6779, 7127, 7349, 7757, 8231, 8387, 9011, 9239, 9431
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
Prime(n) = the n-th prime number.
|
|
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) g(n) = for(x=1, n, y=twinl(prime(x)); print1(y", ")) twinl(n) = { local(c, x); c=0; x=1; while(c<n, if(isprime(prime(x)+2), c++); x++; ); return(prime(x-1)) }
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|