OFFSET
1,2
COMMENTS
Subsequence of A007602. [R. J. Mathar, Nov 12 2009]
The digital products of the terms are a subsequence of A238985. _Karl-Heinz Hofmann, Feb 16 2024_
LINKS
Karl-Heinz Hofmann, Table of n, a(n) for n = 1..8042 (Terms < 10^18, first 690 terms from David A. Corneth)
EXAMPLE
612 is in the list because 6*1*2=12, 612 is a multiple of 12, and 12 is the final two digits of 612.
PROG
(PARI) is(n) = { my(vp = vecprod(digits(n))); vp != 0 && n %vp == 0 && n % 10^(#digits(vp)) == vp } \\ David A. Corneth, Mar 30 2021
(Python)
A167620 = []
for k in range(1, 511176):
dprod, k_str = 1, str(k)
for d in range(0, len(k_str)): dprod *= int(k_str[d])
if dprod != 0 and k % dprod == 0 and str(dprod) == k_str[-(len(str(dprod))):]:
A167620.append(k)
print(A167620) # Karl-Heinz Hofmann, Jan 26 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Nov 07 2009
STATUS
approved