OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000 (first 184 terms from Harvey P. Dale)
EXAMPLE
The prime factors of 315 are 3,5,7, which sum to 15, the product of the digits of 315, so 315 is a term of the sequence.
MATHEMATICA
f[n_] := Module[{a, l, t, r}, a = FactorInteger[n]; l = Length[a]; t = Table[a[[i]][[1]], {i, 1, l}]; r = Sum[t[[i]], {i, 1, l}]]; g[n_] := Module[{b, m, s}, b = IntegerDigits[n]; m = Length[b]; s = Product[b[[i]], {i, 1, m}]]; Select[Range[10^5], f[ # ] == g[ # ] &]
Select[Range[2, 100000], Total[FactorInteger[#][[All, 1]]] == Times@@ IntegerDigits[ #]&] (* Harvey P. Dale, Feb 15 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, Feb 18 2002
STATUS
approved