The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A101402 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A101402

a(0)=0, a(1)=1; for n>=2, let k = smallest power of 2 that is >= n, then a(n) = a(k/2) + a(n-1-k/2).
(history; published version)

#48 by Jon E. Schoenfield at Sat Mar 28 16:52:10 EDT 2015

STATUS

editing

approved

#47 by Jon E. Schoenfield at Sat Mar 28 16:52:08 EDT 2015

COMMENTS

The (10^k_)-th term: 0, 3, 36, 355, 3549, 35494, 354942, ... - Robert G. Wilson v, Sep 19 2014

STATUS

approved

editing

#46 by Jon E. Schoenfield at Sat Mar 14 15:47:15 EDT 2015

STATUS

editing

approved

#45 by Jon E. Schoenfield at Sat Mar 14 15:47:11 EDT 2015

EXTENSIONS

More terms from _Robert G. Wilson_, v_, Aug 17 2009

#44 by Jon E. Schoenfield at Sat Mar 14 15:47:05 EDT 2015

MATHEMATICA

a[0] = 0; a[1] = 1; a[n_] := a[n] = Block[{p = 2^(Ceiling[Log[2, n]] - 1)}, a[p] + a[n - 1 - p]]; Table[ a@n, {n, 0, 100}] (* _Robert G. Wilson_, v_, Aug 17 2009 *)

STATUS

approved

editing

#43 by N. J. A. Sloane at Fri Feb 27 23:18:16 EST 2015

STATUS

proposed

approved

#42 by Jon E. Schoenfield at Fri Feb 27 23:17:44 EST 2015

STATUS

editing

proposed

#41 by Jon E. Schoenfield at Fri Feb 27 23:17:42 EST 2015

COMMENTS

The position of where n first appears: 0, 1, 4, 6, 10, 13, 15, 18, 21, 23, 27, 30, 32, 34, 37, 39, 43, 46, 48, 51, 54, 56, 60, 63, 66, 69, …, . _.. - _Robert G. Wilson v_, Sep 19 2014

The 10^k_th term: 0, 3, 36, 355, 3549, 35494, 354942, …, . _.. - _Robert G. Wilson v_, Sep 19 2014

EXAMPLE

Then the definition says that the k-th block is the final term of the previous block added to the sequence starting from the beginning (e.g. , 34445566 = 3 + 01112233).

STATUS

approved

editing

#40 by Peter Luschny at Sun Sep 21 02:33:31 EDT 2014

STATUS

proposed

approved

#39 by Robert G. Wilson v at Fri Sep 19 00:35:06 EDT 2014

STATUS

editing

proposed