login
Smallest nonsquarefree integer > the n-th term of the Fibonacci sequence.
0

%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