This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A131096 #21 Feb 16 2025 08:33:06 %S A131096 1,2,10,11,20,22,100,110,121,200,220,1000,1012,1100,1210,2000,2101, %T A131096 2200,10000,10120,11000,11202,12100,20000,21010,22000,100000,100111, %U A131096 101200,110000,112020,121000,200000,200222,210100,220000,1000000,1001110 %N A131096 3-smooth numbers in ternary representation. %H A131096 Amiram Eldar, <a href="/A131096/b131096.txt">Table of n, a(n) for n = 1..10000</a> %H A131096 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Ternary.html">Ternary</a>. %F A131096 a(n) = A007089(A003586(n)). %t A131096 smooth3Q[n_] := FactorInteger[n][[-1, 1]] <= 3; %t A131096 FromDigits /@ (IntegerDigits[#, 3]& /@ Select[Range[10000], smooth3Q]) (* _Jean-François Alcover_, Oct 17 2021 *) %Y A131096 Cf. A003586, A007089. %K A131096 nonn %O A131096 1,2 %A A131096 _Reinhard Zumkeller_, Jun 14 2007 %E A131096 Offset changed to 1 by _Joerg Arndt_, Oct 17 2021