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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A151845 a(0)=0; a(1)=1; a(2)=1; for n>=3 if n=2^i + j with 0<=j<2^i then a(n)=a(j) + a(j + 1) except we add 1 if j=2^i-1. 2
0, 1, 1, 3, 1, 2, 4, 5, 1, 2, 4, 4, 3, 6, 9, 7, 1, 2, 4, 4, 3, 6, 9, 6, 3, 6, 8, 7, 9, 15, 16, 9, 1, 2, 4, 4, 3, 6, 9, 6, 3, 6, 8, 7, 9, 15, 16, 8, 3, 6, 8, 7, 9, 15, 15, 9, 9, 14, 15, 16, 24, 31, 25, 11, 1, 2, 4, 4, 3, 6, 9, 6, 3, 6, 8, 7, 9, 15, 16, 8, 3, 6, 8, 7, 9, 15, 15, 9, 9, 14, 15, 16, 24, 31, 25 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

Robert Israel, Table of n, a(n) for n = 0..10000

FORMULA

I would very much like a g.f. for this sequence!

MAPLE

f:= proc(n) option remember; local i, j;

  i:= ilog2(n);

  j:= n - 2^i;

  if j = 2^i-1 then procname(j)+procname(j+1)+1 else procname(j)+procname(j+1) fi

end proc:

f(0):= 0: f(1):=1: f(2):= 1:

map(f, [$0..100]); # Robert Israel, Oct 30 2017

CROSSREFS

Cf. A151843-A151874.

Sequence in context: A074585 A183312 A108038 * A230448 A201653 A230765

Adjacent sequences:  A151842 A151843 A151844 * A151846 A151847 A151848

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Jul 17 2009

EXTENSIONS

Name corrected by Robert Israel, Oct 30 2017

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 2 10:12 EDT 2020. Contains 334769 sequences. (Running on oeis4.)