1,6

R := proc(n) option remember; if n<5 then 1 else RETURN((R(n-1)*R(n-4)+R(n-2)+R(n-3))/R(n-5)); fi; end;

Sequence in context: A003217 A006723 A096390 this_sequence A135729 A118330 A062221

Adjacent sequences: A092261 A092262 A092263 this_sequence A092265 A092266 A092267

nonn

Paul Heideman (ppheideman(AT)wisc.edu), Feb 19 2004