A044956 -id:A044956 - cp's OEIS frontend

A023802 Xenodromes: all digits in base 7 are different.

0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 51, 52, 53, 54, 55, 63, 66, 67, 68, 69, 70, 72, 74, 75, 76, 77, 79, 80, 82, 83, 84, 86, 87, 88, 90

Offset: 1

Olivier Gérard

			4146 in base 7 is 15042. Since no two digits of the base 7 representation are the same, 4146 is in the sequence.
4147 in base 7 is 15043. Since no two digits of the base 7 representation are the same, 4147 is in the sequence.
4148 in base 7 is 15044. Since the digit 4 appears twice in the base 7 representation, 4148 is not in the sequence.

Nathaniel Johnston, Table of n, a(n) for n = 1..11743 (full sequence)

Cf. A023798 - A023810.
Cf. A007093 (numbers in base 7).
Cf. A044956 (includes a subset of the complement of this sequence).

Select[Range[0, 97], Max[DigitCount[#, 7]] == 1 &] (* Alonso del Arte, Feb 09 2019 *)

isok(n) = my(d=digits(n, 7)); #d == #Set(d); \\ Michel Marcus, Feb 09 2019

A048304 Numbers whose base-7 expansions, read from left to right, have run lengths that strictly increase.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 8, 16, 24, 32, 40, 48, 49, 57, 65, 73, 81, 89, 97, 98, 106, 114, 122, 130, 138, 146, 147, 155, 163, 171, 179, 187, 195, 196, 204, 212, 220, 228, 236, 244, 245, 253, 261, 269, 277, 285, 293, 294, 302, 310, 318, 326, 334, 342, 343, 400, 457

Offset: 0

Patrick De Geest, Feb 15 1999

Cf. A037015, A043696, A043710, A044818, A044956.

A048318 Numbers whose base-7 expansions, read from left to right, have run lengths that strictly decrease.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 8, 16, 24, 32, 40, 48, 56, 57, 58, 59, 60, 61, 62, 112, 113, 114, 115, 116, 117, 118, 168, 169, 170, 171, 172, 173, 174, 224, 225, 226, 227, 228, 229, 230, 280, 281, 282, 283, 284, 285, 286, 336, 337, 338, 339, 340, 341, 342, 399, 400, 401

Offset: 0

Patrick De Geest, Feb 15 1999

Cf. A037013, A043696, A043710, A044818, A044956.

Select[Range[0,500],Max[Differences[Length/@Split[IntegerDigits[ #, 7]]]]<0&] (* Harvey P. Dale, Apr 27 2018 *)

cp's OEIS Frontend

A023802 Xenodromes: all digits in base 7 are different.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A048304 Numbers whose base-7 expansions, read from left to right, have run lengths that strictly increase.

Views

Author

Keywords

Crossrefs

A048318 Numbers whose base-7 expansions, read from left to right, have run lengths that strictly decrease.

Views

Author

Keywords

Crossrefs

Programs

Mathematica