A186697 Next Fibonacci number after n-th prime number.
3, 5, 8, 8, 13, 21, 21, 21, 34, 34, 34, 55, 55, 55, 55, 55, 89, 89, 89, 89, 89, 89, 89, 144, 144, 144, 144, 144, 144, 144, 144, 144, 144, 144, 233, 233, 233, 233, 233, 233, 233, 233, 233, 233, 233, 233, 233, 233, 233, 233, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 377, 610
Offset: 1
Keywords
Crossrefs
Cf. A014208 (next prime after the n-th Fibonacci number).
Programs
-
Mathematica
With[{fibs=Fibonacci[Range[20]]},Table[First[Select[fibs,#>Prime[n]&]],{n,75}]]