The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A001682 Numbers n such that 3^n, 3^(n+1) and 3^(n+2) have same number of digits. (Formerly M5109 N2213) 3
 0, 21, 42, 65, 86, 109, 130, 151, 174, 195, 218, 239, 262, 283, 304, 327, 348, 371, 392, 415, 436, 457, 480, 501, 524, 545, 568, 589, 610, 633, 654, 677, 698, 721, 742, 763, 786, 807, 830, 851, 874, 895, 916, 939, 960, 983, 1004, 1027, 1048 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Equivalently the fractional part of n*log(3) lies between 0 and 1-2log(3), about .04576; 1-2log(3) is also the density of the sequence. - Kevin Costello, Aug 08 2002 REFERENCES N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence). N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..1000 Murray Klamkin and Joe Lipman, Problem E1238, Amer. Math. Monthly, 64 (1957), 367. MATHEMATICA Select[Range[0, 2000], IntegerLength[3^#] == IntegerLength[3^(#+1)] == IntegerLength[3^(#+2)]&] (* Jean-François Alcover, Nov 24 2011 *) Flatten[Position[Partition[IntegerLength[3^Range[0, 1100]], 3, 1], _?( Length[ Union[#]]==1&), {1}, Heads->False]]-1 (* Harvey P. Dale, Jan 31 2015 *) SequencePosition[IntegerLength[3^Range[0, 1200]], {x_, x_, x_}][[All, 1]]-1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 12 2018 *) PROG (Haskell) a001682 n = a001682_list !! (n-1) a001682_list = [k | k <- [0..], let m = 3^k, a055642 m == a055642 (9*m)] -- Reinhard Zumkeller, Oct 10 2011 CROSSREFS First differences give A151910. Cf. A055642, A000244. Sequence in context: A008603 A235497 A086794 * A180963 A078440 A175805 Adjacent sequences:  A001679 A001680 A001681 * A001683 A001684 A001685 KEYWORD nonn,base,easy,nice AUTHOR EXTENSIONS More terms from R. K. Guy and Emeric Deutsch, Mar 09 2005 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 31 13:01 EDT 2020. Contains 334748 sequences. (Running on oeis4.)