

A132141


Numbers whose ternary representation begins with 1.


6



1, 3, 4, 5, 9, 10, 11, 12, 13, 14, 15, 16, 17, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

R. Zumkeller, Table of n, a(n) for n = 1..10000
B. Brown et al., Four quotient set gems, arXiv:1312.1036 [math.NT], 2013.
Christian Mauduit, Propriétés arithmétiques des substitutions, in Séminaire de Théorie des Nombres, Paris, 198990 pp 177190 (in French).
Index entries for 3automatic sequences.


FORMULA

A number n is a term iff 3^m <= n < 2*3^m 1, for m=0,1,2,...  Zak Seidov, Mar 03 2009


MATHEMATICA

Flatten[(Range[3^#, 2 3^#1])&/@Range[0, 4]]  Zak Seidov, Mar 03 2009


PROG

(PARI) s=[]; for(n=0, 4, for(x=3^n, 2*3^n1, s=concat(s, x))); s  Zak Seidov, Mar 03 2009
(Haskell)
a132141 n = a132141_list !! (n1)
a132141_list = filter ((== 1) . until (< 3) (flip div 3)) [1..]
 Reinhard Zumkeller, Feb 06 2015


CROSSREFS

Cf. A007089, A132140, A157671, A131835.
Sequence in context: A098801 A259615 A069807 * A246303 A285161 A329781
Adjacent sequences: A132138 A132139 A132140 * A132142 A132143 A132144


KEYWORD

nonn,base,easy,changed


AUTHOR

Reinhard Zumkeller, Aug 20 2007


STATUS

approved



