OFFSET
1,1
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Stefano Spezia, Mar 09 2020
STATUS
approved