A285203 - OEIS

%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