A070924 Where A070871 sets a new record.
1, 2, 4, 5, 9, 10, 17, 18, 21, 34, 37, 41, 42, 69, 73, 74, 82, 85, 138, 146, 149, 165, 169, 170, 277, 293, 297, 298, 330, 341, 553, 554, 585, 586, 594, 597, 661, 677, 681, 682, 1109, 1173, 1189, 1193, 1194, 1322, 1354, 1365, 2217, 2218, 2345, 2346, 2378, 2389
Offset: 1
Keywords
Examples
In A070871 a visual inspection will show that A070871(10) = 15 and 15 exceeds all A070871(k) for all k's less than 10.
Programs
-
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}]