z=40;f[n_x]:=f[n]=整数部分[n];d[p_u]:=d[p]=长度[DeleteDuplicates[p]];
表[Count[f[n],p_/;MemberQ[p,d[p]]&&MemberQ[p,Max[p]-Min[p]],{n,0,z}](*A241387*)
表[Count[f[n],p_2;!MemberQ[p,d[p]]&&MemberQ[p,Max[p]-Min[p]],{n,0,z}](*A241388号*)
表[Count[f[n],p_/;MemberQ[p,d[p]]&&!成员q[p,Max[p]-Min[p]]],{n,0,z}](*A241389号*)
表[Count[f[n],p_2;!成员Q[p,d[p]]&&!成员q[p,Max[p]-Min[p]]],{n,0,z}](*A241390*)
表[Count[f[n],p_/;MemberQ[p,d[p]]| | MemberQ[p,Max[p]-Min[p]],{n,0,z}](*A241391号*)
|