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