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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A132679 Starting with a(1)=1 and a(2)=2: if m is a term then also 4*m and 4*m+3. 4
1, 2, 4, 7, 8, 11, 16, 19, 28, 31, 32, 35, 44, 47, 64, 67, 76, 79, 112, 115, 124, 127, 128, 131, 140, 143, 176, 179, 188, 191, 256, 259, 268, 271, 304, 307, 316, 319, 448, 451, 460, 463, 496, 499, 508, 511, 512, 515, 524, 527, 560, 563, 572, 575, 704, 707, 716 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Subsequence of A000069; A010060(a(n))=1; A000120(a(n)) mod 2 = 1;

A000079, A083420, A002042, A002089 are subsequences.

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Odious Number

Index entries for sequences related to binary expansion of n

MATHEMATICA

Union[Nest[Flatten[{#, 4#, 4#+3}]&, {1, 2}, 4]] (* Harvey P. Dale, Aug 02 2013 *)

PROG

(Haskell)

import Data.Set (fromList, insert, deleteFindMin)

a132679 n = a132679_list !! (n-1)

a132679_list = f $ fromList [1, 2] where

   f s = m : f (insert (4*m) $ insert (4*m+3) s') where

       (m, s') = deleteFindMin s

-- Reinhard Zumkeller, Oct 29 2011

CROSSREFS

Cf. A179888. [From Reinhard Zumkeller, Jul 31 2010]

Sequence in context: A182245 A182246 A118248 * A216576 A116617 A091996

Adjacent sequences:  A132676 A132677 A132678 * A132680 A132681 A132682

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Aug 26 2007

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 August 20 20:50 EDT 2019. Contains 326155 sequences. (Running on oeis4.)