A075732 Fibonacci numbers F(k) for k not squarefree (A013929).
3, 21, 34, 144, 987, 2584, 6765, 46368, 75025, 196418, 317811, 2178309, 14930352, 102334155, 701408733, 1134903170, 4807526976, 7778742049, 12586269025, 32951280099, 86267571272, 225851433717, 1548008755920, 6557470319842
Offset: 0
Examples
4 is a nonsquarefree number and Fibonacci(4)=3, 8 is a nonsquarefree number and Fibonacci(8)=21,...
Programs
-
Maple
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);
-
Mathematica
Fibonacci[#]&/@DeleteCases[Range[100],?SquareFreeQ] (* _Harvey P. Dale, Apr 20 2011 *)