login
Smallest nonsquarefree number >= n.
14

%I #19 Nov 17 2024 15:00:49

%S 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,

%T 27,28,32,32,32,32,36,36,36,36,40,40,40,40,44,44,44,44,45,48,48,48,49,

%U 50,52,52,54,54,56,56,60,60,60,60,63,63,63,64,68,68,68,68,72,72,72,72

%N Smallest nonsquarefree number >= n.

%H Vincenzo Librandi, <a href="/A120327/b120327.txt">Table of n, a(n) for n = 1..1000</a>

%t Table[NestWhile[ #+1&,n,SquareFreeQ],{n,100}] (* simplified by _Harvey P. Dale_, Apr 08 2014 *)

%Y Cf. A013929 (nonsquarefree numbers).

%K nonn,changed

%O 1,1

%A _Zak Seidov_, Aug 16 2006