OFFSET
1,1
EXAMPLE
735 is a member because 7*3*5 = 105 and 735 / 105 = 7
MATHEMATICA
Select[Range[4000], Max[DigitCount[#]]==1&&FreeQ[IntegerDigits[#], 0] && FreeQ[ IntegerDigits[#], 1]&&Divisible[#, Times@@IntegerDigits[#]]&] (* Harvey P. Dale, Jun 07 2022 *)
CROSSREFS
KEYWORD
base,nonn,fini,full
AUTHOR
Roeland Krul (rkrul2000(AT)yahoo.com), Mar 19 2007
STATUS
approved