

A075883


a(1) = a(2) = 1; a(n) = a(n1) + a(n2)! for n > 2.


1




OFFSET

1,3


COMMENTS



LINKS



MATHEMATICA

a = {1, 1}; For[i = 3, i <= 8, i++, c = (a[[i  1]] + a[[i  2]]!); a = Append[a, c]]; a
RecurrenceTable[{a[1]==a[2]==1, a[n]==a[n1]+a[n2]!}, a, {n, 8}] (* Harvey P. Dale, Apr 22 2014 *)


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



