%I #24 Jun 17 2022 16:05:56
%S 1,2,6,33,289,3414,50070,873613,17650829,405071318,10405071318,
%T 295716741929,9211817190185,312086923782438,11424093749340454,
%U 449317984130199829,18896062057839751445,846136323944176515622,40192544399240714091046,2018612200059554303215025
%N a(n) = 1 + Sum_{j=1..n} j^j.
%C The usual convention in the OEIS is that 0^0 = 1. This sequence could therefore be defined as Sum_{j=0..n} j^j. See also A001923.
%H T. D. Noe, <a href="/A062970/b062970.txt">Table of n, a(n) for n = 0..100</a>
%F a(n) = a(n-1) + A000312(n) = A001923(n) + 1.
%F a(n) ~ n^n. - _Vaclav Kotesovec_, Nov 27 2017
%e a(4) = 1 + 1^1 + 2^2 + 3^3 + 4^4 = 1 + 1 + 4 + 27 + 256 = 289.
%t Table[Sum[Sum[Binomial[n, k] StirlingS2[n, k] k!, {k, 0, n}], {n, 0, m}], {m, 0, 20}] (* _Geoffrey Critzer_, Mar 18 2009 *)
%t Join[{1},Accumulate[Table[n^n,{n,20}]]+1] (* _Harvey P. Dale_, Aug 31 2016 *)
%o (PARI) { a=0; for (n=0, 100, write("b062970.txt", n, " ", a+=n^n) ) } \\ _Harry J. Smith_, Aug 14 2009
%o (Python)
%o from itertools import count, accumulate, islice
%o def A062970_gen(): # generator of terms
%o yield from accumulate((k**k for k in count(1)),initial=1)
%o A062970_list = list(islice(A062970_gen(),20)) # _Chai Wah Wu_, Jun 17 2022
%Y Cf. A000312, A001923.
%K nonn
%O 0,2
%A _Henry Bottomley_, Jul 23 2001