%I#8 2018年6月15日22:04:38
%S 4,8,12,16,24,32,48,56,64,9611212012819222424025638448480,
%电话:51252867276889696099210241056134414561536179219201984,
%电话:2048211221602208268291230723584384039684096422443204416
%N复合数k,使得k的奇数等分部分之和除以k。
%H Harry J.Smith,n的表,n=1..1000的a(n)</a>
%t Do[d=下降[除数[n],-1];l=长度[d];od=1;k=2;当[k<=l时,如果[OoddQ[d[[k]]],od=od+d[[k]]];k++];如果[!PrimeQ[n]&&IntegerQ[n/od],打印[n]],{n,2,10^4}]
%o(PARI){n=0;对于(m=4,10^9,如果(isprime(m),next);d=除数(m);s=1;对于(i=2,numdiv(m)-1,如果(d[i]%2,s+=d[i]));如果(s>0&m%s==0,写(“b066192.txt”,n++,“”,m);如果
%K nonn公司
%O 1,1
%A _Robert G.Wilson v_,2001年12月15日
|