OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
FORMULA
sum(k=1, a(k)) is asymptotic to C*n with C=1.9091.....
MATHEMATICA
Array[Block[{k = 1}, While[! SquareFreeQ@ Floor[#/k], k++]; k] &, 120] (* Michael De Vlieger, Nov 20 2017 *)
PROG
(PARI) a(n)=if(n<0, 0, s=1; while(issquarefree(floor(n/s))==0, s++); s)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Aug 10 2002
STATUS
approved