A199988 -id:A199988 - cp's OEIS frontend

A276038 Numbers n such that product of digits of n is a power of 6.

1, 6, 11, 16, 23, 32, 49, 61, 66, 94, 111, 116, 123, 132, 149, 161, 166, 194, 213, 229, 231, 236, 263, 292, 312, 321, 326, 334, 343, 362, 389, 398, 419, 433, 469, 491, 496, 611, 616, 623, 632, 649, 661, 666, 694, 839, 893, 914, 922, 938, 941, 946, 964

Offset: 1

Vincenzo Librandi, Aug 19 2016

			946 is in the sequence because 9*4*6 = 216 = 6^3.

David A. Corneth, Table of n, a(n) for n = 1..11690 (Terms <= 10^6)

Cf. similar sequences listed in A276037.

Cf. A199988.

Select[Range[20000], IntegerQ[Log[6, Times@@(IntegerDigits[#])]] &]

is(n) = my(d = vecsort(digits(n)), p = prod(i = 1, #d, d[i])); d[1] >= 1 && 6^logint(p, 6) == p \\ David A. Corneth, Jun 23 2018

A201055 Composite numbers whose product of digits is 6.

Original entry on oeis.org

6, 16, 32, 116, 123, 132, 161, 213, 231, 312, 321, 611, 1116, 1132, 1161, 1312, 1611, 3112, 3211, 6111, 11116, 11123, 11132, 11231, 11312, 11611, 12131, 12311, 13112, 13211, 21113, 21131, 21311, 23111, 31112, 31211, 32111, 61111, 111116, 111123, 111132, 111161

Offset: 1

Jaroslav Krizek, Nov 26 2011

			Number 123 is in sequence because 1*2*3 = 6.

Michael S. Branicky, Table of n, a(n) for n = 1..10860 (all terms with <= 32 digits)

Cf. A199988 (numbers whose product of digits is 6).
Complement of A107692 (primes whose product of digits is 6) with respect to A199988.
Subsequence of A201020 (composite numbers whose multiplicative digital root is 6).

from sympy import prod, isprime
from sympy.utilities.iterables import multiset_permutations
def agen(maxdigits):
    for digs in range(1, maxdigits+1):
        for mp in multiset_permutations("1"*(digs-1) + "236", digs):
            if prod(map(int, mp)) == 6:
                t = int("".join(mp))
                if not isprime(t): yield t
print(list(agen(6))) # Michael S. Branicky, Jun 16 2021

cp's OEIS Frontend

A276038 Numbers n such that product of digits of n is a power of 6.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI