A103736 Fibonacci numbers with nonprime indices.
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
Keywords
Examples
55 is included because 55 is the 10th Fibonacci number and 10 is composite.
Programs
-
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 *)
Extensions
More terms from Robert G. Wilson v and Emeric Deutsch, Oct 04 2005