A352464 Numbers k whose decimal expansion ends in the product of digits of k.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 236, 240, 250, 260, 270, 280, 290, 300, 310, 315, 320, 324, 330, 340, 350, 360, 370, 380, 390, 400
Offset: 1
Examples
10 is a term because "10" ends in "0" = 1*0; 118 is a term because "118" ends in "8" = 1*1*8; 236 is a term because "236" ends in "36" = 2*3*6; etc.
Programs
-
Mathematica
q[n_] := Module[{d = IntegerDigits[n], p, dp, ndp}, p = Times @@ d; dp = IntegerDigits[p]; ndp = Length[dp]; dp == d[[-ndp ;; -1]]]; Select[Range[400], q] (* Amiram Eldar, Mar 17 2022 *) -
Python
from math import prod def ok(n): s = str(n); return s.endswith(str(prod(map(int, s)))) print([k for k in range(1, 401) if ok(k)]) # Michael S. Branicky, Mar 17 2022