OFFSET
1,2
COMMENTS
Also, numbers n such that the exponent of the largest power of 3 dividing n! is exactly twice the exponent of the largest power of 5 dividing n!. - Ivan Neretin, May 21 2015
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
select(t -> convert(convert(t, base, 3), `+`)=convert(convert(t, base, 5), `+`), [$1..1000]); # Robert Israel, May 21 2015
MATHEMATICA
Select[Range[200], Total[IntegerDigits[#, 3]]==Total[IntegerDigits[#, 5]]&] (* Harvey P. Dale, Jun 06 2016 *)
PROG
(PARI) is(n)=sumdigits(n, 3)==sumdigits(n, 5) \\ Charles R Greathouse IV, May 21 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved