This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A270811 #11 May 06 2016 08:26:40 %S A270811 1,5,30,68,132,154,248,261,322,326,468,533,646,702,896,943,1065,1103, %T A270811 1282,1311,1442,1462,1740,1751,1891,1893,2117,2259,2542,2675,2910, %U A270811 3034,3416,3531,3775,3881,4209,4306,4559,4647,5050,5129,5391,5461,5834,5895,6166,6218,6756 %N A270811 Records in A266569. %H A270811 R. J. Mathar, <a href="/A270811/b270811.txt">Table of n, a(n) for n = 1..1000</a> %F A270811 a(n) = A266569(A270812(n)). - _R. J. Mathar_, May 06 2016 %t A270811 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 A270811 Cf. A266569, A270812. %K A270811 nonn %O A270811 1,2 %A A270811 _N. J. A. Sloane_, Apr 07 2016 %E A270811 Typo in definition corrected by _Felix Fröhlich_, Apr 07 2016