OFFSET
1,1
EXAMPLE
833 = (2*8 + 1) * (2*3 + 1) * (2*3 + 1) = 17*7*7.
MATHEMATICA
Select[Range[776*10^4], Times@@(2#+1&/@IntegerDigits[#])==#&] (* The program generates the first 6 terms of the sequence. To generate more, increase the Range constant but the program may take a long time to run. *) (* Harvey P. Dale, Jan 12 2022 *)
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
Giovanni Resta, Jan 25 2006
STATUS
approved