|
Search: id:A093307
|
|
|
| A093307 |
|
k-th upper twin prime, where k is the n-th Fibonacci number. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
PROGRAM
|
(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: A033300 A134130 A078551 this_sequence A158299 A141392 A088047
Adjacent sequences: A093304 A093305 A093306 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
