(phixonline)--> sequence r = apply(apply(true,factors,{tagset(100),{1}}),length) puts(1,join_by(apply(true,sprintf,{{"%3d"},r}),1,20,""))