%I#11 2015年3月21日04:54:18
%S 1,2,4,8,9,16,32,64,81128256512572910242048665617776,
%电话:81921638432768590496553611764913107226214439062524288,
%电话:5314411048576209715241943044782969838608167772163355443046721
%形式为(m/N)^(m-N)的N个数,其中m>=N。
%C所有2的幂都存在,即使是3的幂,5的四次幂等。-Robert G.Wilson v_
%e第10个元素是a=128,其中m=14,n=7,因为128=(14/7)^(14-7)。
%p a:=proc(N)局部a,m,N;对于m从1到N,do对于N从1到m,do a:=(m/N)^(m-N);如果(楼层(a)=a),则打印(a)fi;od;od;end:#转换为集合#排序集合
%t取[Select[Union[Flatten[Table[(m/n)^(m-n),{m,52},{n,m}]],IntegerQ[#]&],40](*_Robert G.Wilson v_*)
%K nonn公司
%O 1,2号机组
%A _Paolo P.Lava和Giorgio Balzarotti,2005年11月12日
%E由_Robert G.Wilson v_修订和扩展,2005年11月14日