A075849 a(1) = a(2) = 1; a(n) = a(n-1)! + a(n-2) for n > 2.

1, 1, 2, 3, 8, 40323

Offset

1,3

Links

Table of n, a(n) for n=1..6.

Mathematica

a = {1, 1}; For[i = 3, i <= 6, i++, a = Append[a, a[[i - 1]]! + a[[i - 2]]]]; a

Crossrefs

Sequence in context: A113840 A336292 A285088 * A005604 A114020 A011163

Adjacent sequences: A075846 A075847 A075848 * A075850 A075851 A075852

Keyword

nonn

Author

Joseph L. Pe, Oct 17 2002

Status

approved