A070926 - OEIS

A070926

Records in the Conway's alimentary function A070871.

1, 2, 3, 6, 12, 15, 20, 28, 40, 45, 77, 88, 104, 126, 165, 198, 209, 273, 322, 390, 522, 570, 609, 714, 851, 1066, 1160, 1363, 1470, 1870, 1887, 2220, 2296, 2747, 2760, 3572, 3871, 3950, 4180, 4895, 5820, 7236, 7521, 7980, 9348, 10112, 10191, 12816

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

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

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[m]], {n, 1, 10^4}]

CROSSREFS

Cf. A070871, A070924.

Sequence in context: A284638 A111271 A217647 * A226023 A124485 A373084

Adjacent sequences: A070923 A070924 A070925 * A070927 A070928 A070929

KEYWORD

easy,nonn

AUTHOR

Robert G. Wilson v, May 20 2002

STATUS

approved