A352464 Positive 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

Robert Israel, Table of n, a(n) for n = 1..10000

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.

Maple

filter:= proc(n) local L, x;
  L:= convert(n, base, 10);
  x:= convert(L, `*`);
  if x = 0 then L[1] = 0
  else n mod 10^(1+ilog10(x)) = x
  fi
end proc:
select(filter, [$1..1000]); # Robert Israel, Nov 23 2025

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.

Union of A008592 (except 0) and A167619.

Sequence in context: A250246 A250250 A375759 * 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