OFFSET
1,3
MATHEMATICA
a = {1, 1}; For[i = 3, i <= 6, i++, a = Append[a, a[[i - 1]]! + a[[i - 2]]]]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Oct 17 2002
STATUS
approved