OFFSET
1,2
EXAMPLE
MATHEMATICA
a[0] = 1; a[n_] := a[n] = If[ OddQ[n], a[n/2 - 1/2], a[n/2] + a[n/2 - 1]]; m = 0; Do[ If[ a[n]*a[n - 1] > m, m = a[n]*a[n - 1]; Print[n]], {n, 1, 10^4}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, May 20 2002
STATUS
approved