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 A285203 #7 May 10 2017 08:43:58 %S A285203 2,3,3,4,3,4,3,4,3,5,3,4,3,4,3,5,3,4,3,4,3,5,3,4,3,4,3,5,3,4,3,4,3,6, %T A285203 3,4,3,4,3,5,3,4,3,4,3,5,3,4,3,4,3,5,3,4,3,4,3,6,3,4,3,4,3,5,3,4,3,4, %U A285203 3,5,3,4,3,4,3,5,3,4,3,4,3,6,3,4,3,4,3,5 %N A285203 Local high points in A285200. %H A285203 Ken Knowlton, <a href="/A285200/a285200.png">Illustration showing what floor the elevator is on for the first 49 stages</a> %p A285203 hit:=Array(1..50,0); %p A285203 hit[1]:=1; a:=[1]; dir:=1; f:=1; pk:=[]; %p A285203 for s from 2 to 900 do %p A285203 if dir>0 then f:=f+1; else f:=f-1; fi; %p A285203 hit[f]:=hit[f]+1; a:=[op(a),f]; %p A285203 if (hit[f] mod f) = 0 then dir:=1; else dir:=-1; fi; %p A285203 if s>2 and a[s-2]<a[s-1] and a[s-1]>a[s] then pk:=[op(pk),a[s-1]]; fi; %p A285203 od: %p A285203 a; # A285200 %p A285203 pk; # A285203 %Y A285203 Cf. A285200, A285201. %K A285203 nonn %O A285203 1,1 %A A285203 _N. J. A. Sloane_, May 02 2017