login
A103736
Fibonacci numbers with nonprime indices.
0
0, 1, 3, 8, 21, 34, 55, 144, 377, 610, 987, 2584, 6765, 10946, 17711, 46368, 75025, 121393, 196418, 317811, 832040, 2178309, 3524578, 5702887, 9227465, 14930352, 39088169, 63245986, 102334155, 267914296, 701408733, 1134903170, 1836311903
OFFSET
0,3
EXAMPLE
55 is included because 55 is the 10th Fibonacci number and 10 is composite.
MAPLE
with(combinat): a:=proc(n) if isprime(n)=false then fibonacci(n) else fi end: seq(a(n), n=0..52); # Emeric Deutsch, Oct 04 2005
MATHEMATICA
Fibonacci /@ Select[Range[0, 46], ! PrimeQ[ # ] &] (* Robert G. Wilson v *)
Module[{nn=50, ix}, ix=Table[If[PrimeQ[n], 0, 1], {n, 0, nn}]; Pick[Fibonacci[ Range[ 0, nn]], ix, 1]] (* Harvey P. Dale, Apr 26 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 01 2005
EXTENSIONS
More terms from Robert G. Wilson v and Emeric Deutsch, Oct 04 2005
STATUS
approved