A270811 Records in A266569.

1, 5, 30, 68, 132, 154, 248, 261, 322, 326, 468, 533, 646, 702, 896, 943, 1065, 1103, 1282, 1311, 1442, 1462, 1740, 1751, 1891, 1893, 2117, 2259, 2542, 2675, 2910, 3034, 3416, 3531, 3775, 3881, 4209, 4306, 4559, 4647, 5050, 5129, 5391, 5461, 5834, 5895, 6166, 6218, 6756

Offset: 1

Author

N. J. A. Sloane, Apr 07 2016

Keywords

• nonn

Links

• R. J. Mathar, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A266569, A270812.

Programs

Mathematica

a[1] = 1; a[n_] := a[n] = If[EvenQ@ n, 2 n + a[n/2], (n - 1)/2 + a[2 (n + 1)]]; Union@ Rest@ FoldList[Max, 0, #] &@ Array[a, 10^3] (* Michael De Vlieger, May 06 2016 *)

Formula

a(n) = A266569(A270812(n)). - R. J. Mathar, May 06 2016

Extensions

Typo in definition corrected by Felix Fröhlich, Apr 07 2016