%I#14 2019年1月31日19:59:26
%序号1,8,27,32128729
%N同时是不同阶乘和的数字,形式为a^b,b>=3。
%C 10 ^18之前无其他条款。-_罗伯特·伊斯雷尔,2019年1月30日
%e 2!+3! = 2^3;
%e 1!+2!+4! = 3^3;
%e 2!+3! + 4! = 2^5;
%e 2!+3! + 5! = 2^7;
%e 1!+2! + 3! + 6! = 3^6 = 9^3.
%页码:=10^5;#获取所有项<=N
%p S:={1}:
%从2do到n的p
%p v:=n!;
%p如果v>N,则打破fi;
%pS:=S并集{v}并集映射(`+`,S,v)
%日期:
%p filter:=proc(n)局部F;
%p F:=系数(n)[2];
%p igcd(op(映射(t->t[2],F))>=3
%p端程序:
%p过滤器(1):=真:
%p选择(过滤器,S);#_罗伯特·伊斯雷尔,2019年1月30日
%Y参考A025494、A051761。
%K nonn,更多
%O 1,2号机组
%一个保罗。Jobling(AT)WhiteCross.com,2000年8月10日
|