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

Author

Bruno Berselli, Feb 07 2014

Keywords

• nonn

Examples

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

Links

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

Programs

Magma

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

Mathematica

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