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.
%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