OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1)=5, since ds_2(5):ds_3(5)=2:3.
MAPLE
select(t -> convert(convert(t, base, 3), `+`)/convert(convert(t, base, 2), `+`) = 3/2, [$1..1000]); # Robert Israel, Sep 26 2016
MATHEMATICA
Select[Range[500], 3*Total[IntegerDigits[#, 2]] == 2*Total[IntegerDigits[#, 3]] &] (* G. C. Greubel, Sep 26 2016 *)
PROG
(PARI) isok(n) = 2*vecsum(digits(n, 3)) == 3*vecsum(digits(n, 2)); \\ Michel Marcus, Sep 26 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Hieronymus Fischer, Dec 24 2007
STATUS
approved