A084363 a(n) = n^(n+1) - (n-1)^n.

1, 7, 73, 943, 14601, 264311, 5484865, 128452927, 3352566673, 96513215599, 3038428376721, 103854777002351, 3830383180320217, 151630719172112935, 6412840260155078401, 288579496823639935231, 13767936546888372165153

Offset: 1

Author

Amarnath Murthy, May 27 2003

Keywords

• easy
• nonn

Comments

n-th partial arithmetic mean is n^n.

Crossrefs

Cf. A000312, A007778.

Programs

Mathematica

Table[n^(n+1)-(n-1)^n, {n,25}] (* Vladimir Joseph Stephan Orlovsky, Dec 29 2010 *)

Maxima

A084363[n]:=n^(n+1)-(n-1)^n$
makelist(A084363[n],n,1,30); /* Martin Ettl, Oct 29 2012 */

PARI

for(n=1,17,print1(n^(n+1)-(n-1)^n,","))

Extensions

Edited and extended by Klaus Brockhaus, May 30 2003