|
| |
|
|
A093307
|
|
k-th upper twin prime, where k is the n-th Fibonacci number.
|
|
0
| |
|
|
5, 5, 7, 13, 31, 73, 181, 349, 859, 1723, 3361, 6091, 11833, 22273, 41959, 77713, 138403, 249439, 447793, 799741, 1399201, 2459923, 4312741, 7581943, 13233841
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n) = 2+A093306(n) = A006512(A000045(n)). [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 06 2010]
|
|
|
PROG
| (PARI) g(n) = for(x=1, n, print1(twinu(fibonacci(x))", ")) twinu(n) = { local(c, x); c=0; x=1; while(c<n, if(isprime(prime(x)+2), c++); x++; ); return(prime(x)) }
(PARI) default(primelimit, 20000000); twinu(n) = { local(c, x); c=0; x=1; while(c<n, if(isprime(prime(x)+2), c++); x++); return(prime(x)) } { for(n=1, 25, write("b093307.txt", n, " ", twinu(fibonacci(n)))); } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 20 2009]
|
|
|
CROSSREFS
| Sequence in context: A134130 A078551 A158299 * A141392 A088047 A109257
Adjacent sequences: A093304 A093305 A093306 * A093308 A093309 A093310
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Apr 25 2004
|
|
|
EXTENSIONS
| Added more terms. Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 20 2009
|
| |
|
|
