OFFSET
1,2
COMMENTS
For terms 10 < a(n) < 10^9 none have a base-3 representation whose digit product equals the base-10 product. The first such entry using the base-4 representation is 491.
EXAMPLE
6 is a term as 6_10 = 6_7 = 6_8 = 6_9, so it has three other base representations where the digit product also equals 6.
91 is a term as 91_10 = 331_5 = 133_8, so it has two other base representations where the digit product also equals 9.
491 is a term as 491_10 = 13223_4 = 3431_5, so it has two other base representations where the digit product also equals 36.
MATHEMATICA
proDig[n_, b_] := Times @@ IntegerDigits[n, b]; seqQ[n_] := Module[{prod = proDig[n, 10], count = 0}, If[prod > 0, Do[If[proDig[n, b] == prod, count++]; If[count == 2, Break[]], {b, 3, 9}]]; count == 2]; Select[Range[650000], seqQ] (* Amiram Eldar, Jan 21 2020 *)
PROG
(PARI) isok(n) = {my(p=vecprod(digits(n))); (p != 0) && (sum(k=3, 9, p==vecprod(digits(n, k))) >= 2); } \\ Michel Marcus, Jan 21 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Scott R. Shannon, Jan 20 2020
STATUS
approved