OFFSET
0,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
FORMULA
a(0) = 4, a(n) = n*a(n-1)-n+1 for n>0. - Sergei N. Gladkovskii, Jul 04 2012
MAPLE
a:= proc(n) if n=0 then 4 else a(n):= n*a(n-1)-n+1 fi end: seq (a(n), n=0..25); # Sergei N. Gladkovskii, Jul 04 2012
MATHEMATICA
Table[3 n! + 1, {n, 0, 30}] (* Vincenzo Librandi, Sep 29 2013 *)
PROG
(Magma) [3*Factorial(n) + 1: n in [0..25]]; /* or */ [4] cat [n eq 1 select n+3 else n*Self(n-1)-n+1: n in [1..25] ]; // Vincenzo Librandi, Sep 29 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Feb 16 2010
STATUS
approved