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

4, 4, 4, 4, 8, 9, 16, 24, 36, 56, 90, 147, 234, 378, 612, 988, 1600, 2588, 4184, 6768, 10948, 17712, 28660, 46372, 75028, 121396, 196420, 317812, 514232, 832041, 1346272, 2178312, 3524580, 5702888, 9227466, 14930356, 24157818, 39088170

Offset

1,1

Links

Table of n, a(n) for n=1..38.

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

Cf. A005117, A000045, A111077.

Sequence in context: A167185 A081676 A378033 * A361471 A379586 A379584

Adjacent sequences: A114552 A114553 A114554 * A114556 A114557 A114558

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