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