A236772 a(n) = floor( Sum_{i=1..n} n^i/i ).

1, 4, 16, 97, 840, 9751, 141364, 2448224, 49213158, 1125229242, 28823071636, 817379051371, 25417591832210, 859893812841432, 31439503159778411, 1235301513693182001, 51906185332750116476, 2322562816174820224108, 110253678955674860565875

Offset

1,2

Links

Bruno Berselli, Table of n, a(n) for n = 1..100

Example

For n=5, floor(5 + 5^2/2 + 5^3/3 + 5^4/4 + 5^4) = floor(10085/12) = 840, therefore a(5) = 840.

Mathematica

Table[Floor[Sum[n^i/i, {i, n}]], {n, 20}]

Prog

(Magma) [Floor(&+[n^i/i: i in [1..n]]): n in [1..20]];

Crossrefs

Sequence in context: A032184 A130683 A111976 * A209299 A091040 A029985

Adjacent sequences: A236769 A236770 A236771 * A236773 A236774 A236775

Keyword

nonn

Author

Bruno Berselli, Feb 07 2014

Status

approved