A218043 Base 3 numbers that have digits that sum to 3.
12, 21, 102, 111, 120, 201, 210, 1002, 1011, 1020, 1101, 1110, 1200, 2001, 2010, 2100, 10002, 10011, 10020, 10101, 10110, 10200, 11001, 11010, 11100, 12000, 20001, 20010, 20100, 21000, 100002, 100011, 100020, 100101, 100110, 100200, 101001, 101010, 101100
Offset: 1
Links
- Eric W. Weisstein, Mathworld: Siteswap
Programs
-
Mathematica
t = Select[Range[500], Total[IntegerDigits[#, 3]] == 3 &]; FromDigits /@ IntegerDigits[t, 3] (* T. D. Noe, Oct 19 2012 *)
Comments