OFFSET
1,2
LINKS
Michael Somos, Table of n, a(n) for n = 1..11
MATHEMATICA
a[ n_] := If[ n < 4, Max[1, n], a[n] = (1 + a[n-1]) a[n-2] a[n-3]];
PROG
(PARI) {a(n) = if( n<4, max(1, n), (1 + a(n-1)) * a(n-2) * a(n-3))};
(Magma) I:=[1, 2, 3]; [n le 3 select I[n] else (1 + Self(n-1))*Self(n-2)* Self(n-3): n in [1..15]]; // G. C. Greubel, Aug 05 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael Somos, Aug 21 2014
STATUS
approved