A070924 - OEIS

%I #2 Mar 30 2012 17:30:44

%S 1,2,4,5,9,10,17,18,21,34,37,41,42,69,73,74,82,85,138,146,149,165,169,

%T 170,277,293,297,298,330,341,553,554,585,586,594,597,661,677,681,682,

%U 1109,1173,1189,1193,1194,1322,1354,1365,2217,2218,2345,2346,2378,2389

%N Where A070871 sets a new record.

%e In A070871 a visual inspection will show that A070871(10) = 15 and 15 exceeds all A070871(k) for all k's less than 10.

%t 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}]

%Y Cf. A070871, A070926.

%K nonn

%O 1,2

%A _Robert G. Wilson v_, May 20 2002