|
%I #11 May 06 2016 08:26:40
%S 1,5,30,68,132,154,248,261,322,326,468,533,646,702,896,943,1065,1103,
%T 1282,1311,1442,1462,1740,1751,1891,1893,2117,2259,2542,2675,2910,
%U 3034,3416,3531,3775,3881,4209,4306,4559,4647,5050,5129,5391,5461,5834,5895,6166,6218,6756
%N Records in A266569.
%H R. J. Mathar, <a href="/A270811/b270811.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A266569(A270812(n)). - _R. J. Mathar_, May 06 2016
%t 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 *)
%Y Cf. A266569, A270812.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Apr 07 2016
%E Typo in definition corrected by _Felix Fröhlich_, Apr 07 2016
|
