|
%I #22 Sep 08 2022 08:45:04
%S 3,4,5,6,7,8,10,12,14,16,18,20,21,24,27,30,33,36,39,42,45,48,51,54,56,
%T 60,64,68,72,76,80,84,88,92,96,100,104,108,112,116,120,124,128,132,
%U 136,140,144,148,150,155,160,165,170,175,180,185,190,195
%N Floor(log(n)) divides n.
%H Harry J. Smith, <a href="/A066378/b066378.txt">Table of n, a(n) for n = 1..1000</a>
%p filter:= proc(n) n mod floor(log(n)) = 0 end proc:
%p select(filter, [$3..1000]); # _Robert Israel_, Sep 04 2015
%t Select[Range[3, 200], Divisible[#, Floor@ Log@ #] &] (* _Michael De Vlieger_, Sep 04 2015 *)
%o (PARI) { n=0; for (m=3, 10^9, if (m%floor(log(m)) == 0, write("b066378.txt", n++, " ", m); if (n==1000, return)) ) } \\ _Harry J. Smith_, Feb 12 2010
%o (Magma) [n: n in [3..220] | IsZero(n mod (Floor(Log(n))))]; // _Vincenzo Librandi_, Sep 05 2015
%Y Cf. A066379.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Dec 23 2001
|
