OFFSET
1,1
EXAMPLE
Fib(18)=2584 is there because neither 18 nor 2584 is squarefree.
MAPLE
with(combinat, fibonacci): fib_supM_ndsk := proc(n); if (numtheory[issqrfree](n)='false') then if (numtheory[issqrfree](fibonacci(n))='false') then RETURN(fibonacci(n)); fi; fi; end: seq(fib_supM_ndsk(i), i=1..200);
MATHEMATICA
Select[Table[{n, Fibonacci[n]}, {n, 300}], NoneTrue[#, SquareFreeQ]&][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 20 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jani Melik, Oct 07 2002
EXTENSIONS
Edited by Don Reble, Nov 05 2005
More terms from Harvey P. Dale, Aug 20 2019
STATUS
approved