%I#33 2021年6月19日03:31:23
%S 1,3,9,15,27,45,811052252433154056757299451152151575,
%电话:2025218728353375346536454725607565618505101251039510935,
%电话:1102514175150151732518225196832362525515303753118532805
%给出每个素数签名的最小奇数的列表。
%C所有形式的数字3^k2*5^k3**p_n^k_n,其中k2>=k3>=…>=kN,已排序。
%H Ray Chandler,n的表,a(n)表示n=1..10000</a>
%H David Ryan,<a href=“https://arxiv.org/abs/1603.08904“>数学和谐分析,arXiv预印本arXiv:1603.08904[cs.SD],2016-2017。
%F总和{n>=1}1/a(n)=产品{n>=2}1/(1-1/A070826(n))=1.6241170949…-Amiram Eldar_,2020年10月20日
%t PrimeExponents[n_]:=因子整数[n][[All,2]];lpe={};A147516={1};Do[pe=PrimeExponents[n]//排序;如果[FreeQ[lpe,pe],AppendTo[lpe、pe];附加到[A147516,n]],{n,3,40000,2}];A147516(*_Jean-François Alcover,2015年1月27日,摘自_Robert G.Wilson v_*)
%o(PARI)是(n)=my(k=oo,t);对于素数(p=3,,t=估值(n,p);如果(t>k,返回(0),k=t);如果(k,n/=p^k,return(n==1))\\查尔斯·格里特豪斯IV,2015年8月20日
%Y参考A025487、A070826。
%K nonn公司
%O 1,2号机组
%2008年11月5日,Nicholes先生
%E由雷·钱德勒编辑和扩展,2010年7月29日
|