login
A285203
Local high points in A285200.
5
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
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
Sequence in context: A077567 A096344 A030349 * A085887 A305716 A297616
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 02 2017
STATUS
approved