|
%I #7 Mar 02 2015 16:08:49
%S 2,3,5,7,8,12,15,16,26,49,64,65,70,86,96,102,123,128,130,140,150,156,
%T 201,208,209,215,225,247,258,266,280,286,299,305,326,350,356,360,403,
%U 424,456,471,474,490,495,512,513,515,519,520,530,532,545,551,555,558
%N Numbers n such that sum of digits in base 8 is a divisor of sum of prime divisors (A008472).
%p A076386 := proc(n) local i,j,t,t1, sod, sopd; t := NULL; for i from 2 to n do t1 := i; sod := 0; while t1 <> 0 do sod := sod + (t1 mod 8); t1 := floor(t1/8); od; sopd := 0; j := 1; while ithprime(j) <= i do if i mod ithprime(j) = 0 then sopd := sopd+ithprime(j); fi; j := j+1; od; if sopd mod sod = 0 then t := t,i; fi; od; t; end;
%Y Cf. A075657, A076380 - A076387.
%K nonn,base
%O 1,1
%A _Floor van Lamoen_, Oct 08 2002
|
