%I#70 2023年11月30日01:24:39
%S 721082003925006759681125132313521372231228830873267,
%电话:4232456324612567287688038575878897947109521197913448,
%电话:142831479215125176721965219773211252247222707272594727436
%N形式为p^2*q^3的数,其中p,q是不同的素数。
%C另外:带素数签名的数字{3,2}。
%C这是A114128的一个子序列。[哈斯勒]
%C每个a(n)是一个阿基里斯数(A052486)。它们是最小的,这意味着没有合适的除数是阿基里斯数_Antonio Roldán,2011年12月27日
%H T.D.Noe,n表,n=1..1000时的a(n)</a>
%H Euler项目,<a href=“https://projecteuler.net/problem=200“>问题200:找到包含相邻子字符串200的第200个不含素数的平方根。
%H<a href=“/index/Pri#prime_signature”>与素数签名相关的序列索引</a>
%F和{n>=1}1/a(n)=P(2)*P(3)-P(5)=A085548*A085541-A085965=0.043280…,其中P是素数zeta函数_Amiram Eldar,2020年7月6日
%e这个序列的前三项是3^2*2^3=72,2^2*3^3=108,5^2*2%3=200。
%t f[n_]:=排序[Last/@FactorInteger[n]]=={2,3};选择[范围[30000],f](*_Vladimir Joseph Stephan Orlovsky_,2009年10月9日*)
%o(PARI)对于(n=1,10^5,ω(n)==2||下一个;向量排序(因子(n)[,2])==[2,3]~&&print1(n“,”)
%o(PARI)列表(lim)=my(v=list(),t);对于素数(p=2,(lim\4)^(1/3),t=p^3;对于素数(q=2,sqrt(lim\t)),如果(p==q,next);列表(v,t*q^2));vecsort(Vec(v))\\_Charles R Greathouse IV,2011年7月20日
%Y参考A114128。
%Y参见A085541、A085548、A085965。
%K容易,不是
%O 1,1号机组
%A _M.F.Hasler,2008年8月27日
|