A049106 Ratio from A049102.

1, 2, 37, 14, 1, 1, 2, 2, 88, 926, 247, 104, 114, 4, 196, 754, 214, 9, 289, 571, 47, 32, 2058, 1696, 36, 2428, 68, 3, 2946, 3071, 96, 86, 123, 3, 103, 61, 113, 119, 138, 97, 797, 41153, 30867, 5672, 30892, 644, 1146, 31142, 289, 41893, 499, 896, 109, 33642

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base

Crossrefs

Cf. A049101, A049102, A049105.

Programs

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);

Extensions

More terms from Klaus Brockhaus, Dec 13 2001