OFFSET
1,1
COMMENTS
4 appears to be the only even number in the sequence.
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..100
EXAMPLE
4’ = 4;
11’ = 1 = 1*1;
25’ = 10 = 2*5;
329’ = 54 = 3*2*9; etc.
MAPLE
with(numtheory): P:=proc(q) local a, b, k, n; for n from 1 to q do a:=n; b:=1;
for k from 1 to ilog10(n)+1 do b:=b*(a mod 10); a:=trunc(a/10); od;
if n*add(op(2, a)/op(1, a), a=ifactors(n)[2])=b then print(n); fi; od; end: P(10^9);
MATHEMATICA
Select[Range[3, 10^5], Times @@ IntegerDigits@ # == # Total[#2/#1 & @@@
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Feb 10 2016
STATUS
approved