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,2

Links

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

Example

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

Mathematica

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

Prog

(PARI) 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

Crossrefs

Cf. similar sequences listed in A276037.

Cf. A199988.

Sequence in context: A315501 A315502 A315503 * A315504 A315505 A333533

Adjacent sequences: A276035 A276036 A276037 * A276039 A276040 A276041

Keyword

nonn,base

Author

Vincenzo Librandi, Aug 19 2016

Status

approved