|
%I #15 Aug 09 2015 15:18:15
%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}]
%Y Cf. A013929 (nonsquarefree numbers).
%K nonn
%O 1,1
%A _Zak Seidov_, Aug 16 2006
%E Mathematica program simplified by _Harvey P. Dale_, Apr 08 2014
|
