OFFSET
1,1
EXAMPLE
a(4)= 4 because 4 is the smallest nonsquarefree integer greater than 3, the 4th number of the Fibonacci sequence.
MATHEMATICA
(* 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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Brandon S. Paster (bsp11(AT)psu.edu), Dec 08 2005
EXTENSIONS
More terms from Robert G. Wilson v, Dec 22 2005
STATUS
approved