A120327 Smallest nonsquarefree number >= n.

4, 4, 4, 4, 8, 8, 8, 8, 9, 12, 12, 12, 16, 16, 16, 16, 18, 18, 20, 20, 24, 24, 24, 24, 25, 27, 27, 28, 32, 32, 32, 32, 36, 36, 36, 36, 40, 40, 40, 40, 44, 44, 44, 44, 45, 48, 48, 48, 49, 50, 52, 52, 54, 54, 56, 56, 60, 60, 60, 60, 63, 63, 63, 64, 68, 68, 68, 68, 72, 72, 72, 72

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Table[NestWhile[ #+1&, n, SquareFreeQ], {n, 100}]

Crossrefs

Cf. A013929 (nonsquarefree numbers).

Sequence in context: A240835 A047210 A360915 * A056629 A245356 A167185

Adjacent sequences: A120324 A120325 A120326 * A120328 A120329 A120330

Keyword

nonn

Author

Zak Seidov, Aug 16 2006

Extensions

Mathematica program simplified by Harvey P. Dale, Apr 08 2014

Status

approved