A131096 3-smooth numbers in ternary representation.

1, 2, 10, 11, 20, 22, 100, 110, 121, 200, 220, 1000, 1012, 1100, 1210, 2000, 2101, 2200, 10000, 10120, 11000, 11202, 12100, 20000, 21010, 22000, 100000, 100111, 101200, 110000, 112020, 121000, 200000, 200222, 210100, 220000, 1000000, 1001110

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Ternary.

Formula

a(n) = A007089(A003586(n)).

Mathematica

smooth3Q[n_] := FactorInteger[n][[-1, 1]] <= 3;
FromDigits /@ (IntegerDigits[#, 3]& /@ Select[Range[10000], smooth3Q]) (* Jean-François Alcover, Oct 17 2021 *)

Crossrefs

Cf. A003586, A007089.

Sequence in context: A033293 A231501 A051373 * A069263 A356520 A174569

Adjacent sequences: A131093 A131094 A131095 * A131097 A131098 A131099

Keyword

nonn

Author

Reinhard Zumkeller, Jun 14 2007

Extensions

Offset changed to 1 by Joerg Arndt, Oct 17 2021

Status

approved