OFFSET
1,2
COMMENTS
Subsequence of A336826.
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000 (n = 1..500 from Seiichi Manyama)
EXAMPLE
192 = 24 * (2*4) = 32 * (3*2).
549504 = 1696 * (1*6*9*6) = 2862 * (2*8*6*2) = 3392 * (3*3*9*2) = 3816 * (3*8*1*6).
1798848 = 6246 * (6*2*4*6) = 12492 * (1*2*4*9*2) = 33312 * (3*3*3*1*2).
MATHEMATICA
digprod[n_] := n * Times @@ IntegerDigits[n]; seqQ[0] = True; seqQ[n_] := DivisorSum[n, Boole[digprod[#] == n] &] > 1; Select[Range[0, 2 * 10^5], seqQ] (* Amiram Eldar, Aug 08 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Seiichi Manyama, Aug 08 2020
STATUS
approved