A062970 a(n) = 1 + Sum_{j=1..n} j^j.
1, 2, 6, 33, 289, 3414, 50070, 873613, 17650829, 405071318, 10405071318, 295716741929, 9211817190185, 312086923782438, 11424093749340454, 449317984130199829, 18896062057839751445, 846136323944176515622, 40192544399240714091046, 2018612200059554303215025
Offset: 0
Keywords
Examples
a(4) = 1 + 1^1 + 2^2 + 3^3 + 4^4 = 1 + 1 + 4 + 27 + 256 = 289.
Links
- T. D. Noe, Table of n, a(n) for n = 0..100
Programs
-
Mathematica
Table[Sum[Sum[Binomial[n, k] StirlingS2[n, k] k!, {k, 0, n}], {n, 0, m}], {m, 0, 20}] (* Geoffrey Critzer, Mar 18 2009 *) Join[{1},Accumulate[Table[n^n,{n,20}]]+1] (* Harvey P. Dale, Aug 31 2016 *)
-
PARI
{ a=0; for (n=0, 100, write("b062970.txt", n, " ", a+=n^n) ) } \\ Harry J. Smith, Aug 14 2009
-
Python
from itertools import count, accumulate, islice def A062970_gen(): # generator of terms yield from accumulate((k**k for k in count(1)),initial=1) A062970_list = list(islice(A062970_gen(),20)) # Chai Wah Wu, Jun 17 2022
Formula
a(n) ~ n^n. - Vaclav Kotesovec, Nov 27 2017
Comments