|
%I #20 May 20 2022 03:19:25
%S 1,2,10,11,20,22,100,110,121,200,220,1000,1012,1100,1210,2000,2101,
%T 2200,10000,10120,11000,11202,12100,20000,21010,22000,100000,100111,
%U 101200,110000,112020,121000,200000,200222,210100,220000,1000000,1001110
%N 3-smooth numbers in ternary representation.
%H Amiram Eldar, <a href="/A131096/b131096.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Ternary.html">Ternary</a>.
%F a(n) = A007089(A003586(n)).
%t smooth3Q[n_] := FactorInteger[n][[-1, 1]] <= 3;
%t FromDigits /@ (IntegerDigits[#, 3]& /@ Select[Range[10000], smooth3Q]) (* _Jean-François Alcover_, Oct 17 2021 *)
%Y Cf. A003586, A007089.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Jun 14 2007
%E Offset changed to 1 by _Joerg Arndt_, Oct 17 2021
|
