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!)
 A020330 Numbers whose base 2 representation is the juxtaposition of two identical strings. 30
 3, 10, 15, 36, 45, 54, 63, 136, 153, 170, 187, 204, 221, 238, 255, 528, 561, 594, 627, 660, 693, 726, 759, 792, 825, 858, 891, 924, 957, 990, 1023, 2080, 2145, 2210, 2275, 2340, 2405, 2470, 2535, 2600, 2665, 2730, 2795, 2860, 2925, 2990, 3055, 3120, 3185, 3250 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS All differences are in union of A000051 and A001576. - Vladimir Shevelev, Dec 07 2013 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 1..8191 Daniel M. Kane, Carlo Sanna and Jeffrey Shallit, Waring's Theorem for Binary Powers, Combinatorica, Vol. 39, No. 6 (2019), pp. 1335-1350, arXiv preprint, arXiv:1801.04483 [math.NT], 2018. Parthasarathy Madhusudan, Dirk Nowotka, Aayush Rajasekaran and Jeffrey Shallit, Lagrange's Theorem for Binary Squares, arXiv:1710.04247 [math.NT] 2017-2018. Manfred Madritsch and Stephan Wagner, A central limit theorem for integer partitions, Monatshefte für Mathematik, Vol. 161, No. 1 (2010), pp. 85-114, alternative link. Aayush Rajasekaran, Using Automata Theory to Solve Problems in Additive Number Theory, MS thesis, University of Waterloo, 2018. FORMULA a(n) = n + 2*n*2^floor(log_2(n)). - Ralf Stephan, Dec 07 2004 Sum_{n>=1} 1/a(n) = A330157. - Amiram Eldar, Oct 22 2020 EXAMPLE 36 is a member because 36 = 100100_2 which is 100 followed by 100. MATHEMATICA Table[n + 2 n 2^Floor[Log[2, n]], {n, 50}] (* T. D. Noe, Dec 10 2013 *) PROG (Haskell) a020330 n = foldr (\d v -> 2 * v + d) 0 (bs ++ bs) where    bs = a030308_row n -- Reinhard Zumkeller, Feb 19 2013 (PARI) a(n)=n+n<<#binary(n) \\ Charles R Greathouse IV, Mar 29 2013 (PARI) is(n)=my(L=#binary(n)\2); n>>L==bitand(n, 2^L-1) \\ Charles R Greathouse IV, Mar 29 2013 (MAGMA) [n+2*n*2^Floor(Log(2, n)): n in [1..50]]; // Vincenzo Librandi, Apr 05 2018 CROSSREFS Subsequence of A121016. Cf. A062383, A030308, A007088, A330157. Column k=0 of A246830, column k=1 of A246834. Sequence in context: A186575 A233312 A330940 * A023861 A037345 A217278 Adjacent sequences:  A020327 A020328 A020329 * A020331 A020332 A020333 KEYWORD nonn,base,easy,look,changed AUTHOR David W. Wilson, Melia Aldridge (ma38(AT)spruce.evansville.edu) 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 October 22 05:01 EDT 2020. Contains 337950 sequences. (Running on oeis4.)