z=30;f[n_x]:=f[n]=整数部分[n];g[p_u]:=最大[-差异[p]]
表[Count[f[n],p/;g[p]<长度[p]],{n,0,z}](*A241828号*)
表[计数[f[n],p/;g[p]<=长度[p]],{n,0,z}](*A241829号*)
表[Count[f[n],p/;g[p]==长度[p]],{n,0,z}](*A241830*)
表[Count[f[n],p逖g[p]>=长度[p]],{n,0,z}](*A241831号*)
表[Count[f[n],pΜg[p]>长度[p]],{n,0,z}](*A241832号*)
|