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
KEYWORD
nonn
AUTHOR
Peter Luschny, Jan 26 2017
STATUS
approved