OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..36
MAPLE
filter:= proc(t)
local F;
F:= ifactors(t)[2];
map(f -> f[2], F) = [1, 1, 1, 1];
end proc:
select(filter, [seq(combinat:-fibonacci(n), n=1..200)]); # Robert Israel, Sep 07 2014
MATHEMATICA
Select[Fibonacci[Range[200]], Last/@FactorInteger[#]=={1, 1, 1, 1}&]
PROG
(PARI)
Vec(select(k -> omega(k)==4 && bigomega(k)==4, vector(100, i, fibonacci(i)))) \\ Edward Jiang, Sep 11 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 03 2012
STATUS
approved