|
Search: id:A138185
|
|
|
| A138185 |
|
Smallest prime >= nth Fibonacci number. |
|
+0
3
|
|
| 2, 2, 2, 2, 3, 5, 11, 13, 23, 37, 59, 89, 149, 233, 379, 613, 991, 1597, 2591, 4201, 6779, 10949, 17713, 28657, 46381, 75029, 121403, 196429, 317827, 514229, 832063, 1346273, 2178313, 3524603, 5702897, 9227479, 14930387, 24157823, 39088193
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
a(7) = 11 because the 11 is the smallest prime not less than 8 (the 7th Fibonacci number)
|
|
MAPLE
|
with(combinat): a:=proc(n) if isprime(fibonacci(n))=true then fibonacci(n) else nextprime(fibonacci(n)) end if end proc: seq(a(n), n=0..35); - Emeric Deutsch (deutsch(AT)duke.poly.edu), Mar 31 2008
|
|
MATHEMATICA
|
fib[1] = 0; fib[2] = 1; fib[n_] := fib[n] = fib[n - 1] + fib[n - 2] nextprime[n_] := Module[{k = n}, While[Not[PrimeQ[k]], k++ ]; k] Table[nextprime[fib[n]], {n, 1, 50}] - Erich Friedman (efriedma(AT)stetson.edu), Mar 26 2008
|
|
CROSSREFS
|
Cf. A138184.
Sequence in context: A035635 A029100 A098133 this_sequence A138705 A114869 A078228
Adjacent sequences: A138182 A138183 A138184 this_sequence A138186 A138187 A138188
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Colm Mulcahy (colm(AT)spelman.edu), Mar 04 2008
|
|
EXTENSIONS
|
More terms from Erich Friedman (efriedma(AT)stetson.edu) and Emeric Deutsch (deutsch(AT)duke.poly.edu), Mar 26 2008
|
|
|
Search completed in 0.002 seconds
|
