This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A333138 #4 Mar 11 2020 23:52:35 %S A333138 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 A333138 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 A333138 2,3,7,8,1,6,1,4,1,3,5,1,2,1,1,5,3,3,4,1 %N A333138 a(n) is the length of n-th run of increasing terms of A318199. %t A333138 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 A333138 Cf. A318199. %K A333138 nonn %O A333138 1,1 %A A333138 _Stefano Spezia_, Mar 09 2020