|
%I #12 Mar 28 2020 13:02:34
%S 1,2,3,4,6,8,9,10,12,13,18,20,24,26,27,28,30,31,36,37,39,40,54,56,60,
%T 62,72,74,78,80,81,82,84,85,90,91,93,94,108,109,111,112,117,118,120,
%U 121,162,164,168,170,180,182,186,188,216,218,222,224,234,236,240,242,243
%N Numbers having either no ones or no twos in their ternary representation.
%C Complement of A125293; union of A005823 and A005836;
%C A125291(a(n)) = 1; A062756(a(n))*A081603(a(n)) = 0.
%H Rémy Sigrist, <a href="/A125292/b125292.txt">Table of n, a(n) for n = 1..8190</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Ternary.html">Ternary</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Repdigit.html">Repdigit</a>
%t not[n_]:=Module[{c=DigitCount[n,3]},c[[1]]==0||c[[2]]==0]; Select[ Range[ 250],not] (* _Harvey P. Dale_, Dec 15 2012 *)
%o (PARI) is(n, base=3) = #Set(select(sign, digits(n, base)))==1 \\ Rémy Sigrist, Mar 28 2020
%o (PARI) a(n, base=3) = { for (w=0, oo, if (n<=(base-1)*2^w, my (d=1+(n-1)\2^w, k=2^w+(n-1)%(2^w)); return (d*fromdigits(binary(k), base)), n -= (base-1)*2^w)) } \\ Rémy Sigrist, Mar 28 2020
%Y Subsequence of A154314.
%Y Cf. A007089, A125289.
%K nonn,base,easy
%O 1,2
%A _Reinhard Zumkeller_, Nov 26 2006
|
