A060634 Union of Fibonacci numbers and prime numbers.

1, 2, 3, 5, 7, 8, 11, 13, 17, 19, 21, 23, 29, 31, 34, 37, 41, 43, 47, 53, 55, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 144, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251

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

Cf. A000040, A000045.

Sequence in context: A026410 A066720 A079851 * A279457 A359891 A171561

Adjacent sequences: A060631 A060632 A060633 * A060635 A060636 A060637

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