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

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

Offset: 1

Author

Stefano Spezia, Mar 09 2020

Keywords

• nonn

Crossrefs

Cf. A318199.

Programs

Mathematica

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