%I #4 Mar 11 2020 23:52:35
%S 17,2,5,1,4,1,5,1,1,3,2,4,2,3,4,11,1,4,4,1,2,5,4,2,3,3,1,8,2,1,3,1,1,
%T 2,1,1,1,1,3,3,5,1,1,2,1,2,1,6,7,2,4,2,1,1,1,8,1,2,4,1,7,2,1,1,1,2,4,
%U 2,3,7,8,1,6,1,4,1,3,5,1,2,1,1,5,3,3,4,1
%N a(n) is the length of n-th run of increasing terms of A318199.
%t b[n_]:=Floor[n^(Prime[n]/n)]; a={}; nmax=344;For[i=1,i<=nmax,i++,{For[j=1,b[j+i-1]<=b[j+i],j++],i+=j,AppendTo[a,j]}];a
%Y Cf. A318199.
%K nonn
%O 1,1
%A _Stefano Spezia_, Mar 09 2020