This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A191690 a(n) = n^n-n^(n-1)-n^(n-2)-...-n^2-n-1. 4
 0, 1, 14, 171, 2344, 37325, 686286, 14380471, 338992928, 8888888889, 256780503550, 8105545862051, 277635514376232, 10257237069745861, 406615755353655134, 17216961135462248175, 775537745518440716416, 37031913482632035365105 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS Danny Rorabaugh, Table of n, a(n) for n = 1..350 FORMULA a(n) = A117667(n)-1. - Robert G. Wilson v, Apr 16 2015 a(n) = n^n - A023037(n). - Danny Rorabaugh, Apr 20 2015 EXAMPLE a(1)=0 (=1^1-1), a(2)=1 (=2^2-2-1), a(3)=14 (=3^3-3^2-3-1), a(4)=171 (=4^4-4^3-4^2-4-1). MAPLE A191690 := proc(n) n^n-add( n^j, j=0..n-1) ; end proc: # R. J. Mathar, Jun 23 2011 MATHEMATICA Table[Total[-n^Range[0, n-1]]+n^n, {n, 2, 20}] (* Harvey P. Dale, Jul 06 2011 *) f[n_] := ((n - 2) n^n + n)/(n - 1) - 1; f[1] = 0; Array[f, 18] (* Robert G. Wilson v, Apr 16 2015 *) PROG (PARI) a(n) = n^n - sum(k=0, n-1, n^k); \\ Michel Marcus, Apr 16 2015 (Sage) [n^n - sum([n^k for k in range(n)]) for n in range(1, 19)] # Danny Rorabaugh, Apr 20 2015 CROSSREFS Cf. A000312, A023037, A191686. Sequence in context: A099158 A014882 A048443 * A016136 A277940 A061484 Adjacent sequences:  A191687 A191688 A191689 * A191691 A191692 A191693 KEYWORD nonn AUTHOR Juri-Stepan Gerasimov, Jun 11 2011 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 16 08:50 EDT 2019. Contains 328056 sequences. (Running on oeis4.)