OFFSET
1,2
COMMENTS
Terms are zeroless 7-smooth numbers (cf. A238985). - David A. Corneth, Sep 14 2022
EXAMPLE
The prime factors of 1176 are 2,3,7 which have product = 42, the product of the digits of 1176, so 1176 is a term of the sequence.
MATHEMATICA
Do[ If[ Apply[ Times, Transpose[ FactorInteger[n]] [[1]] ] == Apply[ Times, IntegerDigits[n]], Print[n]], {n, 2, 2*10^7} ]
Select[Range[2, 1000000], Times@@Transpose[FactorInteger[#]][[1]] == Times@@ IntegerDigits[#]&] (* Harvey P. Dale, Mar 19 2012 *)
PROG
(PARI) is(n) = {if(n == 1, return(1)); my(f = factor(n, 7), d = digits(n)); if(f[#f~, 1] > 7, return(0)); vecprod(f[, 1]) == vecprod(d)} \\ David A. Corneth, Sep 14 2022
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Joseph L. Pe, Feb 18 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Feb 19 2002
a(1)=1 inserted by Alois P. Heinz, Sep 14 2022
STATUS
approved