OFFSET
1,1
COMMENTS
Do consecutive numbers like 136, 137 occur frequently? Do many primes appear in the sequence?
Numbers n such that the positive integer remainder of n/A007954(n) equals A007953(n). [R. J. Mathar, Jan 03 2009]
LINKS
B. D. Swan, Table of n, a(n) for n=1,...,20000
EXAMPLE
For n = 83, (product of digits of n) = 24, (sum of digits of n) = 11 and 83 = 3*24 + 11.
For n = 93, (product of digits of n) = 27, (sum of digits of n) = 12 and 93 = 3*27 + 12.
MAPLE
sd := proc (n) options operator, arrow: add(convert(n, base, 10)[j], j = 1 .. nops(convert(n, base, 10))) end proc: pd := proc (n) options operator, arrow: product(convert(n, base, 10)[j], j = 1 .. nops(convert(n, base, 10))) end proc: a := proc (n) if 0 < pd(n) and `mod`(n, pd(n)) = sd(n) then n else end if end proc: seq(a(n), n = 1 .. 1000); # Emeric Deutsch, Jan 02 2009
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
J. M. Bergot, Dec 29 2008
EXTENSIONS
Edited, corrected (93 inserted) and extended beyond a(21) by Klaus Brockhaus, Jan 06 2009
Corrected and extended by Emeric Deutsch and R. J. Mathar, Jan 02 2009
STATUS
approved