OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..2500
FORMULA
EXAMPLE
G.f. = 2*x + 4*x^2 + 7*x^3 + 10*x^4 + 14*x^5 + 18*x^6 + 22*x^7 + ... - Michael Somos, Sep 17 2018
MATHEMATICA
Join[{0}, Table[Sum[Floor[Log[2, 3*k + 1]], {k, 1, n}], {n, 1, 2500}]] (* G. C. Greubel, Sep 09 2018 *)
PROG
(PARI) for(n=0, 100, print1(sum(k=1, n, floor(log(3*k+1)/log(2))), ", ")) \\ G. C. Greubel, Sep 09 2018
(Magma) [0] cat [(&+[Floor(Log(3*k+1)/Log(2)) : k in [1..n]]): n in [1..100]]; // G. C. Greubel, Sep 09 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Hieronymus Fischer, May 20 2007
STATUS
approved