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