login
Ratio from A049102.
7

%I #5 Mar 30 2012 17:27:31

%S 1,2,37,14,1,1,2,2,88,926,247,104,114,4,196,754,214,9,289,571,47,32,

%T 2058,1696,36,2428,68,3,2946,3071,96,86,123,3,103,61,113,119,138,97,

%U 797,41153,30867,5672,30892,644,1146,31142,289,41893,499,896,109,33642

%N Ratio from A049102.

%o (ARIBAS): function a049106(a,b: integer); var n,k,j,p,r,d: integer; s: string; begin for n := a to b do s := itoa(n); k := 0; p := 1; for j := 0 to length(s) - 1 do d := atoi(s[j..j]); k : = k + d; p := p*d; end; r := p*k; if r > 0 then if n mod r = 0 then write(n div r,","); end; end; end; end; a049106(0,1220000).

%Y Cf. A049101, A049102, A049105.

%K nonn,base

%O 1,2

%A _Olivier GĂ©rard_

%E More terms from _Klaus Brockhaus_, Dec 13 2001