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.

A206096 Fibonacci numbers with 4 distinct prime divisors, each of multiplicity 1.

This page as a plain text file.
%I A206096 #25 Sep 12 2014 07:49:23
%S A206096 6765,196418,317811,2178309,32951280099,139583862445,1304969544928657,
%T A206096 5527939700884757,259695496911122585,679891637638612258,
%U A206096 12200160415121876738,83621143489848422977,483162952612010163284885,22698374052006863956975682
%N A206096 Fibonacci numbers with 4 distinct prime divisors, each of multiplicity 1.
%C A206096 Intersection of A000045 and A046386. - _Michel Marcus_, Sep 11 2014
%H A206096 Vincenzo Librandi, <a href="/A206096/b206096.txt">Table of n, a(n) for n = 1..36</a>
%p A206096 filter:= proc(t)
%p A206096 local F;
%p A206096 F:= ifactors(t)[2];
%p A206096 map(f -> f[2],F) = [1,1,1,1];
%p A206096 end proc:
%p A206096 select(filter, [seq(combinat:-fibonacci(n),n=1..200)]); # _Robert Israel_, Sep 07 2014
%t A206096 Select[Fibonacci[Range[200]],Last/@FactorInteger[#]=={1,1,1,1}&]
%o A206096 (PARI)
%o A206096 Vec(select(k -> omega(k)==4 && bigomega(k)==4, vector(100, i, fibonacci(i)))) \\ _Edward Jiang_, Sep 11 2014
%Y A206096 Cf. A000045, A053409, A137563
%K A206096 nonn
%O A206096 1,1
%A A206096 _Vladimir Joseph Stephan Orlovsky_, Feb 03 2012