A352464 - OEIS

%I #14 Mar 17 2022 23:57:48

%S 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,

%T 90,100,110,111,112,113,114,115,116,117,118,119,120,130,140,150,160,

%U 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

%N Numbers k whose decimal expansion ends in the product of digits of k.

%e    10 is a term because  "10" ends in  "0" = 1*0;

%e   118 is a term because "118" ends in  "8" = 1*1*8;

%e   236 is a term because "236" ends in "36" = 2*3*6; etc.

%t 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 *)

%o (Python)

%o from math import prod

%o def ok(n): s = str(n); return s.endswith(str(prod(map(int, s))))

%o print([k for k in range(1, 401) if ok(k)]) # _Michael S. Branicky_, Mar 17 2022

%Y Cf. A203565, A352462, A352463.

%K base,nonn

%O 1,2

%A _Eric Angelini_ and _Carole Dubois_, Mar 17 2022