login
A070924
Where A070871 sets a new record.
1
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,2
EXAMPLE
In A070871 a visual inspection will show that A070871(10) = 15 and 15 exceeds all A070871(k) for all k's less than 10.
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
Sequence in context: A213011 A175265 A320225 * A351993 A266197 A086638
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, May 20 2002
STATUS
approved