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,2

Links

Table of n, a(n) for n=1..54.

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

Cf. A070871, A070926.

Sequence in context: A213011 A175265 A320225 * A351993 A266197 A086638

Adjacent sequences: A070921 A070922 A070923 * A070925 A070926 A070927

Keyword

nonn

Author

Robert G. Wilson v, May 20 2002

Status

approved