|
| |
|
|
A044813
|
|
n-th positive integer having distinct base 2 run lengths.
|
|
8
|
|
|
|
1, 3, 4, 6, 7, 8, 14, 15, 16, 24, 28, 30, 31, 32, 35, 39, 48, 49, 55, 57, 59, 60, 62, 63, 64, 67, 79, 96, 97, 111, 112, 120, 121, 123, 124, 126, 127, 128, 131, 135, 143, 159, 192, 193, 223, 224, 225, 239, 241, 247, 248, 249, 251, 252, 254, 255, 256, 259, 263
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
A005811(a(n)) = A165413(a(n)). - Reinhard Zumkeller, Mar 02 2013
|
|
|
LINKS
|
Reinhard Zumkeller, Table of n, a(n) for n = 1..5000
|
|
|
MATHEMATICA
|
f[n_] := Unequal@@Length/@Split[IntegerDigits[n, 2]]; Select[Range[300], f] (* Ray Chandler, Oct 21 2011 *)
|
|
|
PROG
|
(Haskell)
import Data.List (group, nub)
a044813 n = a044813_list !! (n-1)
a044813_list = filter p [1..] where
p x = nub xs == xs where
xs = map length $ group $ a030308_row x
-- Reinhard Zumkeller, Mar 02 2013
|
|
|
CROSSREFS
|
Cf. A030308.
Sequence in context: A108348 A085149 A007370 * A154661 A087753 A070762
Adjacent sequences: A044810 A044811 A044812 * A044814 A044815 A044816
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Clark Kimberling
|
|
|
EXTENSIONS
|
Extended by Ray Chandler, Oct 21 2011
|
|
|
STATUS
|
approved
|
| |
|
|
