1,1

A000801 := proc(n) local k; sum(floor(2^k/k), k=1..n); end;

Cf. A000799.

Adjacent sequences: A000798 A000799 A000800 this_sequence A000802 A000803 A000804

Sequence in context: A128588 A023613 A065795 this_sequence A080105 A023557 A052185

nonn

njas