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!)
A131095 Triangle where n-th row contains the smallest n positive integers (listed in order) with exactly n nonleading 0's in their binary representations and where the smallest term in the n-th row is > that the largest term in the (n-1)th row. 2
2, 4, 9, 17, 18, 20, 33, 34, 36, 40, 65, 66, 68, 72, 80, 129, 130, 132, 136, 144, 160, 257, 258, 260, 264, 272, 288, 320, 513, 514, 516, 520, 528, 544, 576, 640, 1025, 1026, 1028, 1032, 1040, 1056, 1088, 1152, 1280, 2049, 2050, 2052, 2056, 2064, 2080, 2112, 2176 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Reinhard Zumkeller, Rows n = 1..125 of triangle, flattened

EXAMPLE

Binary representations of the terms in the first few rows:

10

100, 1001

10001, 10010, 10100

100001, 100010, 100100, 101000

MAPLE

A023416 := proc(n) local brep, i ; brep := convert(n, base, 2) ; add( 1-op(i, brep), i=1..nops(brep)) ; end: A131095 := proc(rowmax) local a, r, c ; a := 2 ; for r from 1 to rowmax do c := 1 ; while c <= r do if A023416(a) = r then printf("%d, ", a) ; c := c+1 ; fi ; a := a+1 ; od ; od ; end: A131095(10) ; # R. J. Mathar, Jun 15 2007

PROG

(Haskell)

import Data.List (sort, nub)

a131095 n k = a131095_tabl !! (n-1) !! (k-1)

a131095_row n = a131095_tabl !! (n-1)

a131095_tabl = [2] : [4, 9] : [17, 18, 20] : f 4 [17, 18, 20] where

   f v ws = ys : f (v + 1) ys where

     ys = take v $ dropWhile (<= last ws) $ nub $ sort $ concatMap h ws

   h z = [2 * z, 4 * z + 1, 4 * z' + b] where (z', b) = divMod z 2

-- Reinhard Zumkeller, Feb 11 2015

CROSSREFS

Cf. A081118, A131094.

Sequence in context: A249902 A060401 A063981 * A207813 A136379 A065026

Adjacent sequences:  A131092 A131093 A131094 * A131096 A131097 A131098

KEYWORD

nonn,tabl

AUTHOR

Leroy Quet, Jun 14 2007

EXTENSIONS

More terms from R. J. Mathar, Jun 15 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 June 24 05:58 EDT 2021. Contains 345416 sequences. (Running on oeis4.)