%I #9 Aug 09 2015 15:20:48
%S 4,4,4,4,8,9,16,24,36,56,90,147,234,378,612,988,1600,2588,4184,6768,
%T 10948,17712,28660,46372,75028,121396,196420,317812,514232,832041,
%U 1346272,2178312,3524580,5702888,9227466,14930356,24157818,39088170
%N Smallest nonsquarefree integer > the n-th term of the Fibonacci sequence.
%e a(4)= 4 because 4 is the smallest nonsquarefree integer greater than 3, the 4th number of the Fibonacci sequence.
%t (* first load package *) << NumberTheory`NumberTheoryFunctions` (* then do *) f[n_] := Block[{k = 1 + Fibonacci@n}, While[SquareFreeQ@k, k++ ]; k]; Array[f, 38] (* _Robert G. Wilson v_ *)
%Y Cf. A005117, A000045, A111077.
%K nonn
%O 1,1
%A Brandon S. Paster (bsp11(AT)psu.edu), Dec 08 2005
%E More terms from _Robert G. Wilson v_, Dec 22 2005