%I#8 2015年10月15日16:14:39
%S 6,8,10,12,14,15,18,20,21,22,26,27,28,32,33,34,35,38,39,44,45,46,48,
%电话:50,51,52,55,57,58,62,63,65,68,69,74,75,76,77,80,82,85,86,87,91,92,93,
%U 94,95,98,99106111112115116117118119122123124125129133134单位
%N数N,使得d(N)/2是素数,其中d(N。
%H Harry J.Smith,n表,n=1..1000的a(n)</a>
%t选择[Range[1,1000],PrimeQ[DivisorSigma[0,#]/2]==True&]
%o(PARI)n=0;对于(m=1,10^9,f=numdiv(m)/2;如果(frac(f)==0&isprime(f),则写入(“b065985.txt”,n++,“”,m);如果(n==1000,返回)),2009年11月5日,Harry J.Smith
%o(PARI)是(n)=n=因子回归(因子(n)[,2])/2;分母(n)==1&&i素数(n)\\-Charles R Greathouse IV_,2015年10月15日
%K nonn公司
%O 1,1号机组
%A _Joseph L.Pe_,2001年12月10日
|