OFFSET
1,1
COMMENTS
EXAMPLE
The balanced ternary representation of 13 is {1, 1, 1}, which adds up to 3. Since 3 does not divide 13 evenly, 13 is in the list.
The balanced ternary representation of 17 is {1, -1, 0, -1}, this adds up to -1, which divides 17 evenly. Therefore, 17 is not in the list.
MATHEMATICA
(* First run the program for A065363 to define balTernDigits *) Complement[Range[200], Select[Range[200], Plus@@balTernDigits[#] != 0 && IntegerQ[#/(Plus@@balTernDigits[#])] &]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alonso del Arte, Feb 25 2011
STATUS
approved