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,2

Comments

n-th partial arithmetic mean is n^n.

Links

Table of n, a(n) for n=1..17.

Mathematica

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

Prog

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

Crossrefs

Cf. A000312, A007778.

Sequence in context: A365846 A365668 A124547 * A321837 A050352 A261783

Adjacent sequences: A084360 A084361 A084362 * A084364 A084365 A084366

Keyword

easy,nonn

Author

Amarnath Murthy, May 27 2003

Extensions

Edited and extended by Klaus Brockhaus, May 30 2003

Status

approved