This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A276038 #10 Jun 25 2018 03:51:53 %S A276038 1,6,11,16,23,32,49,61,66,94,111,116,123,132,149,161,166,194,213,229, %T A276038 231,236,263,292,312,321,326,334,343,362,389,398,419,433,469,491,496, %U A276038 611,616,623,632,649,661,666,694,839,893,914,922,938,941,946,964 %N A276038 Numbers n such that product of digits of n is a power of 6. %H A276038 David A. Corneth, <a href="/A276038/b276038.txt">Table of n, a(n) for n = 1..11690</a> (Terms <= 10^6) %e A276038 946 is in the sequence because 9*4*6 = 216 = 6^3. %t A276038 Select[Range[20000], IntegerQ[Log[6, Times@@(IntegerDigits[#])]] &] %o A276038 (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 A276038 Cf. similar sequences listed in A276037. %Y A276038 Cf. A199988. %K A276038 nonn,base %O A276038 1,2 %A A276038 _Vincenzo Librandi_, Aug 19 2016