|
%I #3 Mar 31 2012 14:39:59
%S 1,8,55,377,610,10946,17711,121393,3524578,5702887,9227465,39088169,
%T 63245986,1836311903,20365011074,139583862445,365435296162,
%U 591286729879,4052739537881,17167680177565,117669030460994
%N Fibonacci numbers F(k) when k is a product of an even number of distinct primes A030229 (mu(k)=1).
%e 14=2*7 and fibonacci(14)=377, 15=3*5 and fibonacci(15)=610,...
%p with(combinat, fibonacci): fib_m1dsk := proc(n); if (numtheory[mobius](n)=1) then RETURN(fibonacci(n)); fi; end: seq((fib_m1dsk((i))), i=1..100);
%Y Cf. A000045, A030229.
%K easy,nonn
%O 1,2
%A _Jani Melik_, Oct 07 2002
|
