|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|