%I
%S 2,6,8,13,16,18,20,24,26,31,32,37,41,46,48,52,54,56,60,62,67,70,72,74,
%T 78,80,85,86,91,94,96,98,103,104,109,115,118,119,121,122,125,130,131,
%U 136,138,142,144,146,149,154,156,160
%N Balanced ternary nonHarshad numbers.
%C Numbers not divisible by the sum of their balanced ternary digits.
%C All terms of A174658 are in this sequence because their balanced ternary digits add up to 0.
%C Terms of this sequence not in A174658 are generally prime numbers.
%e 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.
%e 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.
%t (* First run the program for A065363 to define balTernDigits *) Complement[Range[200], Select[Range[200], Plus@@balTernDigits[#] != 0 && IntegerQ[#/(Plus@@balTernDigits[#])] &]]
%Y Cf. A005349, base 10 Harshad numbers.
%K nonn,base
%O 1,1
%A _Alonso del Arte_, Feb 25 2011
