A281595 a(n) = (n^n - 3*(n-1)^n + 3*(n-2)^n - (n-3)^n)/6.

0, 0, 0, 1, 10, 125, 1890, 33621, 688506, 15958405, 413066170, 11810819141, 369730963602, 12577271147805, 461980538087250, 18223376862518101, 768327068469302218, 34480595937671194805, 1641060381277816308810, 82562177153973368528901, 4378026144983797903473954

Offset: 0

Author

Peter Luschny, Jan 26 2017

Keywords

• nonn

Links

• Paolo Xausa, Table of n, a(n) for n = 0..380

Crossrefs

Cf. A000312, A045531, A281596.

Programs

Maple

a := n -> (n^n-3*(n-1)^n+3*(n-2)^n-(n-3)^n)/6:
seq(a(n), n=0..20);

Mathematica

A281595[n_] := If[n == 0, 0, (n^n - 3*(n-1)^n + 3*(n-2)^n - (n-3)^n)/6];
Array[A281595, 25, 0] (* Paolo Xausa, Jul 10 2024 *)