OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..10000
MATHEMATICA
s = {}; Do[id3 = IntegerDigits[n, 3]; id2 = IntegerDigits[n, 2];
If[(t = Total[id2]) == Total[id3], AppendTo[s, t]], {n, 0, 10^3}]; s
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 31 2010
STATUS
approved