This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A178922 #28 Feb 26 2020 15:29:32
%S A178922 1,1,7,55,561,7151,109873,1979503,40949569,956953279,24937424601,
%T A178922 717070946087,22555076751793,770416688131663,28399211252136481,
%U A178922 1123728578581456351,47508270371060021505,2137250367863029663487,101941438738172545000873,5138752649702088758467159
%N A178922 a(n) = (n+1)^n - n^(n-1) for n > 0, a(0) = 1.
%F A178922 a(n) = A152917(n+1) - A152917(n). - _Alexei Kourbatov_, Oct 19 2015
%F A178922 E.g.f.: W(-x) - W(-x)/(x*(1+W(-x))) where W is the Lambert W function. - _Robert Israel_, Oct 19 2015
%p A178922 a:= n-> (f-> f(n+1)-f(n))(n-> `if`(n=0, 0, n^(n-1))):
%p A178922 seq(a(n), n=0..20); # _Alois P. Heinz_, Feb 26 2020
%t A178922 Table[(n+1)^n-n^(n-1),{n,25}]
%o A178922 (Maxima) A178922[n]:=(n+1)^n-n^(n-1)$ makelist(A178922[n],n,1,30); /* _Martin Ettl_, Oct 29 2012 */
%o A178922 (PARI) vector(100, n, (n+1)^n - n^(n-1)) \\ _Altug Alkan_, Oct 19 2015
%Y A178922 Cf. A000169, A007925, A084363, A152917.
%K A178922 nonn
%O A178922 0,3
%A A178922 _Vladimir Joseph Stephan Orlovsky_, Dec 29 2010
%E A178922 a(0)=1 prepended and definition adapted by _Alois P. Heinz_, Feb 26 2020