OFFSET
0,1
COMMENTS
In factorial base representation (A007623) the terms are written as: 110, 311, 3110, 31100, 311000, ... From a(1) = 21 = "311" onwards each term always begins with "311", followed by n-1 zeros. - Antti Karttunen, Sep 24 2016
LINKS
FORMULA
a(n) = A211369(3,n).
3*a(n) -(3*n+5)*a(n-1) +(1-n)*a(n-2) +(2-n)*a(n-3) = 0.
E.g.f: (3*x-x^2-8)/(x-1)^3. - Benedict W. J. Irwin, Sep 27 2016
MAPLE
MATHEMATICA
#[[1]]+#[[2]]+3#[[3]]&/@Partition[Range[0, 30]!, 3, 1] (* Harvey P. Dale, Apr 08 2014 *)
Table[CoefficientList[Series[(3x-x^2-8)/(x-1)^3, {x, 0, 30}], x][[n]](n-1)!, {n, 1, 30}] (* Benedict W. J. Irwin, Sep 27 2016 *)
PROG
(Magma) [Factorial(n) +Factorial(n+1)+3*Factorial(n+2): n in [0..20]]; // Vincenzo Librandi, Apr 09 2014
(Scheme) (define (A225658 n) (+ (A000142 n) (A000142 (+ 1 n)) (* 3 (A000142 (+ 2 n))))) ;; Antti Karttunen, Sep 24 2016
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
R. J. Mathar, May 11 2013
STATUS
approved