|
%I #9 Aug 09 2015 14:29:06
%S 3,21,34,144,987,2584,6765,46368,75025,196418,317811,2178309,14930352,
%T 102334155,701408733,1134903170,4807526976,7778742049,12586269025,
%U 32951280099,86267571272,225851433717,1548008755920,6557470319842
%N Fibonacci numbers F(k) for k not squarefree (A013929).
%e 4 is a nonsquarefree number and Fibonacci(4)=3, 8 is a nonsquarefree number and Fibonacci(8)=21,...
%p with(combinat, fibonacci): fib_ndsk := proc(n); if (numtheory[issqrfree](n)='false') then # or # if (mobius(n)=0) then RETURN(fibonacci(n)) fi; end: seq(fib_ndsk(i), i=1..100);
%t Fibonacci[#]&/@DeleteCases[Range[100],_?SquareFreeQ] (* _Harvey P. Dale_, Apr 20 2011 *)
%Y Cf. A000045, A013929, A061899.
%K easy,nonn
%O 0,1
%A _Jani Melik_, Oct 07 2002
|
