cp's OEIS Frontend

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.

A270362 Running maxima of Stern's diatomic sequence.

This page as a plain text file.
%I A270362 #19 Jun 20 2022 20:38:53
%S A270362 0,1,1,2,2,3,3,3,3,4,4,5,5,5,5,5,5,5,5,7,7,8,8,8,8,8,8,8,8,8,8,8,8,8,
%T A270362 8,9,9,11,11,11,11,11,11,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,
%U A270362 13,13,13,13,13,13,13,13,13,13,13,14,14,14,14,15,15,18,18,18,18,18,18,18,18,19,19,21,21,21,21,21,21,21,21,21,21,21,21,21,21
%N A270362 Running maxima of Stern's diatomic sequence.
%H A270362 Michael De Vlieger, <a href="/A270362/b270362.txt">Table of n, a(n) for n = 0..10000</a>
%H A270362 Catherine Mary Kenyon, <a href="https://tigerprints.clemson.edu/all_theses/3075">The Calkin-Wilf Tree and Its Various Properties</a>, Master's Thesis, Clemson University (2019), 3075.
%F A270362 a(n) = max_{0 <= i <= n} A002487(i).
%t A270362 FoldList[Max, Nest[Append[#1, If[OddQ[#2], #1[[(#2 + 1)/2]], #1[[#2/2]] + #1[[(#2 + 2)/2]] ]] & @@ {#, Length@ # + 1} &, {0, 1}, 90]] (* _Michael De Vlieger_, Jul 10 2019 *)
%Y A270362 Distinct elements are A212289. Cf. A002487, A212288.
%K A270362 nonn
%O A270362 0,4
%A A270362 _Jeffrey Shallit_, Mar 15 2016