OFFSET
1,2
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
EXAMPLE
2114 is a term since 2+1+1+4 = 2*1*1*4 = 8 and 2114 has 8 divisors, {1, 2, 7, 14, 151, 302, 1057, 2114}.
MATHEMATICA
L={}; Do[d=IntegerDigits@n; p=Times@@d; If[p==Plus@@d && p==DivisorSigma[0, n], AppendTo[L, n]; Print[n]], {n, 1000000}]; L
lst = {}; fQ[n_] := (id = IntegerDigits@n; Plus @@ id == Times @@ id == DivisorSigma[0, n]); Do[ If[ fQ@n, AppendTo[lst, n]], {n, 2*10^8}]; lst
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Resta, Jan 18 2006
EXTENSIONS
a(13)-a(26) from Robert G. Wilson v, Jan 19 2006
STATUS
approved