OFFSET
1,5
MATHEMATICA
RecurrenceTable[{a[1]==a[2]==a[3]==a[4]==1, a[n]==(a[n-1]+a[n-2]) (a[n-3]+ a[n-4])}, a[n], {n, 20}](* Harvey P. Dale, Aug 08 2011 *)
PROG
(PARI) a(n)=if(n<5, 1, (a(n-1)+a(n-2)) *(a(n-3)+a(n-4))) (Klasen)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Oct 28 2005
EXTENSIONS
More terms from Lambert Klasen (lambert.klasen(AT)gmx.net), Oct 31 2005
STATUS
approved