cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A103736 Fibonacci numbers with nonprime indices.

This page as a plain text file.
%I A103736 #18 Aug 16 2019 14:02:23
%S A103736 0,1,3,8,21,34,55,144,377,610,987,2584,6765,10946,17711,46368,75025,
%T A103736 121393,196418,317811,832040,2178309,3524578,5702887,9227465,14930352,
%U A103736 39088169,63245986,102334155,267914296,701408733,1134903170,1836311903
%N A103736 Fibonacci numbers with nonprime indices.
%e A103736 55 is included because 55 is the 10th Fibonacci number and 10 is composite.
%p A103736 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
%t A103736 Fibonacci /@ Select[Range[0, 46], ! PrimeQ[ # ] &] (* _Robert G. Wilson v_ *)
%t A103736 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 *)
%Y A103736 Cf. A000045, A018252, A090206.
%K A103736 nonn
%O A103736 0,3
%A A103736 _Leroy Quet_, Oct 01 2005
%E A103736 More terms from _Robert G. Wilson v_ and _Emeric Deutsch_, Oct 04 2005