A007094 -id:A007094 - cp's OEIS frontend

A032915 Numbers whose set of base-8 digits is {1,3}.

1, 3, 9, 11, 25, 27, 73, 75, 89, 91, 201, 203, 217, 219, 585, 587, 601, 603, 713, 715, 729, 731, 1609, 1611, 1625, 1627, 1737, 1739, 1753, 1755, 4681, 4683, 4697, 4699, 4809, 4811, 4825, 4827, 5705, 5707, 5721, 5723, 5833, 5835

Offset: 1

Clark Kimberling

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Cf. A007094, A032917.

[n: n in [1..6000] | Set(IntegerToSequence(n, 8)) subset {1, 3}]; // Vincenzo Librandi, Jun 01 2012

Flatten[Table[FromDigits[#,8]&/@Tuples[{1,3},n],{n,5}]] (* Vincenzo Librandi, Jun 01 2012 *)

def A032915(n): return (int(bin(m:=n+1)[3:],8)<<1) + ((1<<3*(m.bit_length()-1))-1)//7 # Chai Wah Wu, Oct 13 2023

A032943 Numbers whose base-8 representation Sum_{i=0..m} d(i)*8^(m-i) has d(i)=0 for all odd i.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 16, 24, 32, 40, 48, 56, 64, 65, 66, 67, 68, 69, 70, 71, 128, 129, 130, 131, 132, 133, 134, 135, 192, 193, 194, 195, 196, 197, 198, 199, 256, 257, 258, 259, 260, 261, 262, 263, 320, 321, 322, 323, 324, 325, 326

Offset: 1

Clark Kimberling

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A007094 (numbers in base 8).

b:= 8:
f:= proc(n, j) local L, m;
  L:= convert(n, base, b);
  m:= nops(L);
  j*add(L[i+1]*b^(2*i), i=0..m-1)
end proc:
seq(seq(seq(f(n, j), n=b^k..b^(k+1)-1), j=[1, b]), k=0..2); # Robert Israel, Nov 16 2020

Definition corrected by Robert Israel, Nov 16 2020

A032979 Numbers with the property that all pairs of consecutive base-8 digits differ by 0 or 1.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 17, 18, 19, 26, 27, 28, 35, 36, 37, 44, 45, 46, 53, 54, 55, 62, 63, 64, 65, 72, 73, 74, 81, 82, 83, 136, 137, 138, 145, 146, 147, 154, 155, 156, 209, 210, 211, 218, 219, 220, 227, 228, 229, 282, 283, 284

Offset: 1

Clark Kimberling

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A007094.

Select[Range[300],Max[Abs[Differences[IntegerDigits[#,8]]]]<2&] (* Harvey P. Dale, Dec 23 2020 *)

A037441 Positive numbers having the same set of digits in base 8 and base 9.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 124, 177, 283, 568, 769, 906, 946, 1528, 1749, 1811, 1812, 1978, 2759, 3372, 3381, 4221, 5112, 5231, 6656, 6791, 6849, 6976, 7016, 7183, 7887, 8080, 8280, 8649, 8858, 8867, 8912, 8921, 8922, 8932, 10325, 10381, 10409, 10577

Offset: 1

Clark Kimberling

			283 is in the sequence because 283 in base 8 is 433 and in base 9 it is 344.

John Cerkan, Table of n, a(n) for n = 1..10000

Subsequence of A037405.

Cf. A007094, A007095.

Select[Range@ 11000, Union@ IntegerDigits[#, 8] == Union@ IntegerDigits[#, 9] &] (* Michael De Vlieger, Feb 18 2017 *)

isok(n) = Set(digits(n, 8)) == Set(digits(n, 9)); \\ Michel Marcus, Feb 18 2017

More terms from Don Reble, Apr 28 2006

Edited by John Cerkan, Feb 17 2017

A039052 Numbers whose base-8 representation has the same number of 0's and 3's.

Original entry on oeis.org

1, 2, 4, 5, 6, 7, 9, 10, 12, 13, 14, 15, 17, 18, 20, 21, 22, 23, 24, 33, 34, 36, 37, 38, 39, 41, 42, 44, 45, 46, 47, 49, 50, 52, 53, 54, 55, 57, 58, 60, 61, 62, 63, 67, 73, 74, 76, 77, 78, 79, 81, 82, 84, 85, 86, 87, 88, 97, 98, 100, 101, 102, 103, 105, 106, 108, 109, 110

Offset: 1

Olivier Gérard

Daniel Starodubtsev, Table of n, a(n) for n = 1..10000

Cf. A007094.

Select[Range[200],DigitCount[#,8,0]==DigitCount[#,8,3]&] (* Harvey P. Dale, Sep 25 2017 *)

A039337 Numbers whose base-8 representation has the same nonzero number of 1's and 3's.

Original entry on oeis.org

11, 25, 67, 83, 88, 90, 92, 93, 94, 95, 99, 107, 115, 123, 139, 153, 193, 200, 202, 204, 205, 206, 207, 209, 225, 233, 241, 249, 267, 281, 331, 345, 395, 409, 459, 473, 515, 531, 536, 538, 540, 541, 542, 543, 547, 555, 563, 571, 603, 643, 659, 664, 666, 668

Offset: 1

Olivier Gérard

Michael S. Branicky, Table of n, a(n) for n = 1..10000

Cf. A007094.

Select[Range[700],DigitCount[#,8,1]==DigitCount[#,8,3]>0&] (* Harvey P. Dale, Oct 24 2015 *)

def ok(n): o = oct(n); return o.count('1') == o.count('3') > 0
print([k for k in range(669) if ok(k)]) # Michael S. Branicky, Nov 25 2021

A039351 Numbers whose base-8 representation has the same nonzero number of 4's and 5's.

Original entry on oeis.org

37, 44, 101, 108, 165, 172, 229, 236, 261, 269, 277, 285, 296, 297, 298, 299, 302, 303, 309, 317, 324, 332, 340, 348, 352, 353, 354, 355, 358, 359, 372, 380, 421, 428, 485, 492, 549, 556, 613, 620, 677, 684, 741, 748, 773, 781, 789, 797, 808, 809, 810

Offset: 1

Olivier Gérard

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Cf. A007094.

Select[Range[900],DigitCount[#,8,4]==DigitCount[#,8,5]>0&] (* Harvey P. Dale, Oct 03 2013 *)

A039356 Numbers whose base-8 representation has the same nonzero number of 6's and 7's.

Original entry on oeis.org

55, 62, 119, 126, 183, 190, 247, 254, 311, 318, 375, 382, 391, 399, 407, 415, 423, 431, 440, 441, 442, 443, 444, 445, 454, 462, 470, 478, 486, 494, 496, 497, 498, 499, 500, 501, 567, 574, 631, 638, 695, 702, 759, 766, 823, 830, 887, 894, 903, 911, 919

Offset: 1

Olivier Gérard

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A007094.

Select[Range[1000],DigitCount[#,8,6]==DigitCount[#,8,7]>0&] (* Harvey P. Dale, Jun 01 2012 *)

A043022 Base-8 palindromes that start with 2.

Original entry on oeis.org

2, 18, 130, 138, 146, 154, 162, 170, 178, 186, 1026, 1098, 1170, 1242, 1314, 1386, 1458, 1530, 8194, 8258, 8322, 8386, 8450, 8514, 8578, 8642, 8714, 8778, 8842, 8906, 8970, 9034, 9098, 9162, 9234, 9298, 9362, 9426, 9490

Offset: 1

Clark Kimberling

Cf. A007094, A043066.

Select[Range[10000],IntegerDigits[#,8]==Reverse[IntegerDigits[#,8]]&&IntegerDigits[#,8][[1]]==2&] (* Harvey P. Dale, Dec 17 2023 *)

a(n) = 8*A043066(n) - 6.

A043024 Base-8 palindromes that start with 4.

Original entry on oeis.org

4, 36, 260, 268, 276, 284, 292, 300, 308, 316, 2052, 2124, 2196, 2268, 2340, 2412, 2484, 2556, 16388, 16452, 16516, 16580, 16644, 16708, 16772, 16836, 16908, 16972, 17036, 17100, 17164, 17228, 17292, 17356, 17428, 17492

Offset: 1

Clark Kimberling

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A007094.

Table[FromDigits[#,8]&/@Select[Tuples[Range[0,7],n],#[[1]]==4&&#== Reverse[ #]&],{n,5}]//Flatten (* Harvey P. Dale, Mar 24 2021 *)

cp's OEIS Frontend

A032915 Numbers whose set of base-8 digits is {1,3}.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

Python

A032943 Numbers whose base-8 representation Sum_{i=0..m} d(i)*8^(m-i) has d(i)=0 for all odd i.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Extensions

A032979 Numbers with the property that all pairs of consecutive base-8 digits differ by 0 or 1.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A037441 Positive numbers having the same set of digits in base 8 and base 9.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A039052 Numbers whose base-8 representation has the same number of 0's and 3's.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A039337 Numbers whose base-8 representation has the same nonzero number of 1's and 3's.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Python

A039351 Numbers whose base-8 representation has the same nonzero number of 4's and 5's.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A039356 Numbers whose base-8 representation has the same nonzero number of 6's and 7's.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A043022 Base-8 palindromes that start with 2.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula