cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A352464 #14 Mar 17 2022 23:57:48
%S A352464 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 A352464 90,100,110,111,112,113,114,115,116,117,118,119,120,130,140,150,160,
%U A352464 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 A352464 Numbers k whose decimal expansion ends in the product of digits of k.
%e A352464    10 is a term because  "10" ends in  "0" = 1*0;
%e A352464   118 is a term because "118" ends in  "8" = 1*1*8;
%e A352464   236 is a term because "236" ends in "36" = 2*3*6; etc.
%t A352464 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 A352464 (Python)
%o A352464 from math import prod
%o A352464 def ok(n): s = str(n); return s.endswith(str(prod(map(int, s))))
%o A352464 print([k for k in range(1, 401) if ok(k)]) # _Michael S. Branicky_, Mar 17 2022
%Y A352464 Cf. A203565, A352462, A352463.
%K A352464 base,nonn
%O A352464 1,2
%A A352464 _Eric Angelini_ and _Carole Dubois_, Mar 17 2022