login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A236840 n minus number of runs in the binary expansion of n: a(n) = n - A005811(n). 20
0, 0, 0, 2, 2, 2, 4, 6, 6, 6, 6, 8, 10, 10, 12, 14, 14, 14, 14, 16, 16, 16, 18, 20, 22, 22, 22, 24, 26, 26, 28, 30, 30, 30, 30, 32, 32, 32, 34, 36, 36, 36, 36, 38, 40, 40, 42, 44, 46, 46, 46, 48, 48, 48, 50, 52, 54, 54, 54, 56, 58, 58, 60, 62, 62, 62, 62, 64, 64, 64 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

COMMENTS

All terms are even. Used by the "number-of-runs beanstalk" sequence A255056 and many of its associated sequences.

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..8192

FORMULA

a(n) = n - A005811(n) = n - A000120(A003188(n)).

a(n) = 2*A255070(n).

MAPLE

A236840 := proc(n) local i, b; if n=0 then 0 else b := convert(n, base, 2); select(i -> (b[i-1]<>b[i]), [$2..nops(b)]); n-1-nops(%) fi end: seq(A236840(i), i=0..69); # Peter Luschny, Apr 19 2014

PROG

(Scheme) (define (A236840 n)  (- n (A005811 n)))

CROSSREFS

Cf. A091067 (the positions of records), A106836 (run lengths).

Cf. A255070 (terms divided by 2).

Cf. A005811, A000120, A003188.

Cf. A255056, A255066, A255061, A255062, A255071, A255072, A255058, A255327.

Other subtracting maps: A011371, A178503, A219641, A219651, A227190, A227191, A237449, A244320, A244234, A255131.

Sequence in context: A086420 A320908 A248781 * A182539 A170887 A103265

Adjacent sequences:  A236837 A236838 A236839 * A236841 A236842 A236843

KEYWORD

nonn,base

AUTHOR

Antti Karttunen, Apr 18 2014

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 May 23 07:08 EDT 2019. Contains 323508 sequences. (Running on oeis4.)