1,2

A054253 := proc(n) local i, j; option remember; if n<=2 then n else j := 0; for i from 1 to n-1 do if A054253(i)*A054253(n-i) >= j then j := A054253(i)*A054253(n-i); fi; od; n+j; fi; end;

Adjacent sequences: A054250 A054251 A054252 this_sequence A054254 A054255 A054256

Sequence in context: A100287 A007176 A065618 this_sequence A045649 A024519 A072829

nonn

njas, May 04 2000