|
%I #7 Feb 13 2017 02:19:46
%S 5,7,11,14,15,16,17,19,21,22,23,25,29,32,33,34,35,38,41,42,43,44,45,
%T 46,47,48,49,50,51,52,53,55,57,58,59,61,63,64,65,66,67,68,69,70,71,73,
%U 75,76,77,79,83,86,87,88,89,92,95,96,97,98,99,100,101,102,103,104,105,106
%N Numbers with at least one 1 and one 2 in ternary representation.
%C Complement of A125292; A062756(a(n))*A081603(a(n)) > 0;
%C A125291(a(n)) > 1.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Ternary.html">Ternary</a>
%H <a href="/index/Ar#3-automatic">Index entries for 3-automatic sequences</a>.
%t Select[Range[120],DigitCount[#,3,1]>0&&DigitCount[#,3,2]>0&] (* _Harvey P. Dale_, Apr 12 2013 *)
%Y Cf. A007089, A125290.
%K nonn,base,easy
%O 1,1
%A _Reinhard Zumkeller_, Nov 26 2006
|
