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,5

Links

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

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 *)

Crossrefs

Cf. A000312, A045531, A281596.

Sequence in context: A230390 A089832 A161170 * A097816 A323877 A079609

Adjacent sequences: A281592 A281593 A281594 * A281596 A281597 A281598

Keyword

nonn

Author

Peter Luschny, Jan 26 2017

Status

approved