A066030 - OEIS

%I #9 Jul 10 2015 00:39:34

%S 1,1,1,2,2,1,1,2,3,2,2,2,2,1,1,3,3,3,3,3,2,1,1,2,3,2,3,4,4,1,1,3,3,2,

%T 2,4,4,3,2,3,3,1,1,2,3,2,2,3,4,4,4,4,4,4,3,3,2,1,1,2,2,1,2,5,5,3,3,3,

%U 3,2,2,4,4,3,3,4,4,2,2,3,5,4,4,3,3,2,2,3,3,2,2,3,2,1,1,3,3,3,4,6,6,4,4,5,3

%N Card{i<=n, floor(n/i)=0 mod(i)}.

%F (1/n)*Sum_{i=1..n} a(i) = C*log(n)+O(log(n)) with C = 0.5...

%o (PARI) for(n=1,150,print1(sum(i=1,n,if(floor(n/i)%i,0,1)),","))

%K nonn

%O 1,4

%A _Benoit Cloitre_, Dec 12 2001