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

Links

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

Formula

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

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 *)

Crossrefs

Cf. A266569, A270812.

Sequence in context: A206329 A043886 A044463 * A331507 A152745 A187275

Adjacent sequences: A270808 A270809 A270810 * A270812 A270813 A270814

Keyword

nonn

Author

N. J. A. Sloane, Apr 07 2016

Extensions

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

Status

approved