A276038 - OEIS

%I #10 Jun 25 2018 03:51:53

%S 1,6,11,16,23,32,49,61,66,94,111,116,123,132,149,161,166,194,213,229,

%T 231,236,263,292,312,321,326,334,343,362,389,398,419,433,469,491,496,

%U 611,616,623,632,649,661,666,694,839,893,914,922,938,941,946,964

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

%H David A. Corneth, <a href="/A276038/b276038.txt">Table of n, a(n) for n = 1..11690</a> (Terms <= 10^6)

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

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

%o (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

%Y Cf. similar sequences listed in A276037.

%Y Cf. A199988.

%K nonn,base

%O 1,2

%A _Vincenzo Librandi_, Aug 19 2016