login
Fibonacci numbers F(k) for k not squarefree (A013929).
0

%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