A066379 Sum of the first n numbers m such that floor(log(m)) divides m.

3, 7, 12, 18, 25, 33, 43, 55, 69, 85, 103, 123, 144, 168, 195, 225, 258, 294, 333, 375, 420, 468, 519, 573, 629, 689, 753, 821, 893, 969, 1049, 1133, 1221, 1313, 1409, 1509, 1613, 1721, 1833, 1949, 2069, 2193, 2321, 2453, 2589, 2729, 2873

Offset

1,1

Links

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

Maple

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

Mathematica

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

Prog

(PARI) n=0; a=0; for (m=3, 10^9, if (m%floor(log(m)) == 0, a+=m; write("b066379.txt", n++, " ", a); if (n==1000, return))) \\ Harry J. Smith, Feb 12 2010

Crossrefs

Partial sums of A066378.

Sequence in context: A141214 A027379 A055998 * A024517 A257941 A257944

Adjacent sequences: A066376 A066377 A066378 * A066380 A066381 A066382

Keyword

nonn

Author

N. J. A. Sloane, Dec 23 2001

Extensions

Name corrected by Charles R Greathouse IV, Sep 04 2015

Status

approved