login
a(n) is the length of n-th run of increasing terms of A318199.
1

%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