A285203 Local high points in A285200.

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, 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, 3, 5, 3, 4, 3, 4, 3, 5, 3, 4, 3, 4, 3, 6, 3, 4, 3, 4, 3, 5

Offset

1,1

Links

Table of n, a(n) for n=1..88.

Ken Knowlton, Illustration showing what floor the elevator is on for the first 49 stages

Maple

hit:=Array(1..50, 0);
hit[1]:=1; a:=[1]; dir:=1; f:=1; pk:=[];
for s from 2 to 900 do
if dir>0 then f:=f+1; else f:=f-1; fi;
hit[f]:=hit[f]+1; a:=[op(a), f];
if (hit[f] mod f) = 0 then dir:=1; else dir:=-1; fi;
if s>2 and a[s-2]<a[s-1] and a[s-1]>a[s] then pk:=[op(pk), a[s-1]]; fi;
od:
a; # A285200
pk; # A285203

Crossrefs

Cf. A285200, A285201.

Sequence in context: A077567 A096344 A030349 * A085887 A305716 A297616

Adjacent sequences: A285200 A285201 A285202 * A285204 A285205 A285206

Keyword

nonn

Author

N. J. A. Sloane, May 02 2017

Status

approved