A342949 Odd numbers that are divisible by the product of their digits.

1, 3, 5, 7, 9, 11, 15, 111, 115, 135, 175, 315, 735, 1111, 1113, 1115, 1131, 1197, 1311, 1575, 1715, 3111, 3171, 3915, 7119, 9315, 11111, 11115, 11133, 11313, 11331, 11711, 13113, 13131, 13311, 17115, 31113, 31131, 31311, 33111, 35175, 51975, 77175, 111111, 111115, 111135

Offset

1,2

Comments

Odd terms in A007602.

Links

David A. Corneth, Table of n, a(n) for n = 1..6430

Example

135 is in the sequence as it is odd and it is divisible by the product of its digits namely 1*3*5 = 15.

Mathematica

Select[Range[1, 100000, 2], Quiet@Mod[#, Times@@IntegerDigits@#]==0&] (* Giorgos Kalogeropoulos, Mar 30 2021 *)

Prog

(PARI) is(n) = {if(n%2 == 0, return(0)); my(vp = vecprod(digits(n))); if(vp > 0, c = n/vp; if(denominator(c) == 1, return(1))); 0 } \\ David A. Corneth, Mar 30 2021
(Python)
from math import prod
def pd(o): return prod(int(d) for d in str(o))
def aupto(limit):
  return [o for o in range(1, limit+1, 2) if pd(o) and o%pd(o) == 0]
print(aupto(111135)) # Michael S. Branicky, Mar 30 2021

Crossrefs

Cf. A005408, A007602.

Supersequence of repunits (A002275 \ {0}).

Sequence in context: A220077 A201649 A201644 * A322400 A322553 A302601

Adjacent sequences: A342946 A342947 A342948 * A342950 A342951 A342952

Keyword

nonn,base

Author

David A. Corneth, Mar 30 2021

Status

approved