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,2

Links

Table of n, a(n) for n=1..70.

Example

   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.

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

Prog

(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

Crossrefs

Cf. A203565, A352462, A352463.

Sequence in context: A250248 A250246 A250250 * A274846 A051108 A051107

Adjacent sequences: A352461 A352462 A352463 * A352465 A352466 A352467

Keyword

base,nonn

Author

Eric Angelini and Carole Dubois, Mar 17 2022

Status

approved