A152839 a(0)=1; a(n)=n!-a(n-1)!.

0, 0, 1, 5, -96

Offset

0,4

Links

Table of n, a(n) for n=0..4.

Mathematica

lst={}; a=1; Do[a=n!-a!; AppendTo[lst, a], {n, 0, 4}]; lst
nxt[{n_, a_}] := {n + 1, (n + 1)! - a!}; Transpose[NestList[nxt, {0, 1}, 4]][[2]] (* Harvey P. Dale, Feb 15 2016 *)

Crossrefs

Cf. A084964, A152832, A152833, A152835, A152836, A152837, A152838

Sequence in context: A193478 A218463 A192343 * A266245 A194616 A285367

Adjacent sequences: A152836 A152837 A152838 * A152840 A152841 A152842

Keyword

sign

Author

Vladimir Joseph Stephan Orlovsky, Dec 14 2008

Extensions

Indices added to definition, offset corrected - R. J. Mathar, Jan 08 2009

Status

approved