OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MATHEMATICA
Module[{nn=15, fib}, fib=Fibonacci[Range[nn]]; Union[Join[fib, Prime[ Range[ PrimePi[ Last[fib]]]]]]] (* Harvey P. Dale, Apr 21 2013 *)
PROG
(PARI) { p=2; f=1; g=1; for (n=1, 1000, if (f<p, a=f; s=f; f+=g; g=s, a=p; q=p; p=nextprime(p + 1); if (q==f, s=f; f+=g; g=s); ); write("b060634.txt", n, " ", a); ) } \\ Harry J. Smith, Jul 08 2009
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jose' R. Brox (ambroxius2(AT)eresmas.com), Apr 15 2001
EXTENSIONS
More terms from Erich Friedman, Jun 03 2001
STATUS
approved