A066378 Floor(log(n)) divides n.

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, 60, 64, 68, 72, 76, 80, 84, 88, 92, 96, 100, 104, 108, 112, 116, 120, 124, 128, 132, 136, 140, 144, 148, 150, 155, 160, 165, 170, 175, 180, 185, 190, 195

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Maple

filter:= proc(n) n mod floor(log(n)) = 0 end proc:
select(filter, [$3..1000]); # Robert Israel, Sep 04 2015

Mathematica

Select[Range[3, 200], Divisible[#, Floor@ Log@ #] &] (* Michael De Vlieger, Sep 04 2015 *)

Prog

(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
(Magma) [n: n in [3..220] | IsZero(n mod (Floor(Log(n))))]; // Vincenzo Librandi, Sep 05 2015

Crossrefs

Cf. A066379.

Sequence in context: A158648 A039078 A073632 * A125684 A207669 A001272

Adjacent sequences: A066375 A066376 A066377 * A066379 A066380 A066381

Keyword

nonn

Author

N. J. A. Sloane, Dec 23 2001

Status

approved