%I#2 2012年3月30日17:30:51
%S 1,2,3,4,5,7,9,10,12,13,15,17,18,30,33,38,40,41,54,63,74,94,96104,
%电话112120128138139151168186192199240248250255260271286,
%电话:288298307312316320354356375393408423424432496504513
%N素数而非素数的两次连续幂之间的有序差(A025475)。
%e 33=546-513=2568-2535=6168-6135=458703-458670=885465-885432=1048608-1048575=6291480-6291447=37748688-37748655=125829345-125829312。
%t pp=排序[Flatten[Table[Prime[n]^i,{n,1,PrimePi[Sqrt[10^16]]},{i,1,Log[Prime[n],10^16]}]];l=长度[pp];d=排序[Take[pp,-l+1]-Take[pp,l-1]];联盟[Take[d,10^5]]
%Y参考A025475。
%K nonn公司
%O 1,2号机组
%A _Robert G.Wilson v_,2002年10月31日
|