A117603 Padovan numbers which can be divided by the product of their digits.
1, 2, 3, 4, 5, 7, 9, 12, 816
Offset: 1
Crossrefs
Cf. A000931.
Programs
-
Mathematica
p=Rest[Union[LinearRecurrence[{0, 1, 1}, {1, 0, 0}, 71]]];Select[p,ContainsNone[IntegerDigits[#],{0}]&&Divisible[#,Times@@IntegerDigits@#]&] (* James C. McMahon, Sep 26 2024 *)
Comments