A049106 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..54.

PROG

(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).

CROSSREFS

Cf. A049101, A049102, A049105.

Sequence in context: A066146 A258035 A178200 * A346067 A375171 A290803

Adjacent sequences: A049103 A049104 A049105 * A049107 A049108 A049109

KEYWORD

nonn,base

AUTHOR

Olivier Gérard

EXTENSIONS

More terms from Klaus Brockhaus, Dec 13 2001

STATUS

approved