A168501 -id:A168501 - cp's OEIS frontend

A276137 Numbers without the decimal digits 2, 4, 6 and 8.

0, 1, 3, 5, 7, 9, 10, 11, 13, 15, 17, 19, 30, 31, 33, 35, 37, 39, 50, 51, 53, 55, 57, 59, 70, 71, 73, 75, 77, 79, 90, 91, 93, 95, 97, 99, 100, 101, 103, 105, 107, 109, 110, 111, 113, 115, 117, 119, 130, 131, 133, 135, 137, 139, 150, 151, 153, 155, 157

Offset: 1

Vincenzo Librandi, Aug 22 2016

Cf. A096844 (with at least one 0 digit).

Subsequence of A168501.

[n: n in [0..500] | IsEmpty(Set([2..8 by 2]) meet Set(Intseq(n)))];

Select[Select[Select[Select[Range[0, 400], FreeQ[IntegerDigits@#, 2] &], FreeQ[IntegerDigits@#, 4] &], FreeQ[IntegerDigits@#, 6] &], FreeQ[IntegerDigits@#, 8] &]

my(table=[0,1,3,5,7,9]); a(n) = fromdigits(apply(d->table[d+1],digits(n-1,6))); \\ Kevin Ryde, Jun 26 2021

A276138 Numbers without the decimal digits 1, 3, 5 and 7.

Original entry on oeis.org

0, 2, 4, 6, 8, 9, 20, 22, 24, 26, 28, 29, 40, 42, 44, 46, 48, 49, 60, 62, 64, 66, 68, 69, 80, 82, 84, 86, 88, 89, 90, 92, 94, 96, 98, 99, 200, 202, 204, 206, 208, 209, 220, 222, 224, 226, 228, 229, 240, 242, 244, 246, 248, 249, 260, 262, 264, 266

Offset: 1

Vincenzo Librandi, Aug 22 2016

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

Cf. A168501, A276137.

[n: n in [0..500] | IsEmpty(Set([1,3,5,7]) meet Set(Intseq(n)))];

S:= [0]:
for d from 1 to 4 do S:= map(t ->  seq(10*t+i,i=[0,2,4,6,8,9]), S) od:
S; # Robert Israel, Aug 24 2016

Select[Select[Select[Select[Range[0, 400], FreeQ[IntegerDigits@#, 1] &], FreeQ[IntegerDigits@#, 3] &], FreeQ[IntegerDigits@#, 5] &], FreeQ[IntegerDigits@#, 7] &]

a(6n-6+k) = 10 a(n) + a(k) for k = 1..6. - Robert Israel, Aug 24 2016

A307913 Numbers without the decimal digits 3, 6 and 9.

Original entry on oeis.org

0, 1, 2, 4, 5, 7, 8, 10, 11, 12, 14, 15, 17, 18, 20, 21, 22, 24, 25, 27, 28, 40, 41, 42, 44, 45, 47, 48, 50, 51, 52, 54, 55, 57, 58, 70, 71, 72, 74, 75, 77, 78, 80, 81, 82, 84, 85, 87, 88, 100, 101, 102, 104, 105, 107, 108, 110, 111, 112, 114, 115, 117, 118, 120

Offset: 1

Donghwi Park, May 06 2019

This sequence appears in the Korean counting game Sam-Yuk-Gu.

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

Cf. A052382, A168501, A276137, A276138.

[n:n in [0..10000]| Set(Intseq(n,10)) subset [0,1,2,4,5,7,8]]; // Marius A. Burtea, May 06 2019

A:= [0,1,2,4,5,7,8]:
for d from 1 to 2 do
  A:= map(t -> seq(10*t+i,i=[0,1,2,4,5,7,8]), A)
od:
A; # Robert Israel, May 15 2019

With[{dc=DigitCount},Select[Range[0,150],dc[#,10,3]==dc[#,10,6]==dc[#,10,9]==0&]] (* Harvey P. Dale, Jul 31 2025 *)

a(n, s=[0,1,2,4,5,7,8]) = fromdigits(apply(d -> s[1+d], digits(n-1, #s))) \\ Rémy Sigrist, May 06 2019

cp's OEIS Frontend

A276137 Numbers without the decimal digits 2, 4, 6 and 8.

Views

Author

Keywords

Crossrefs

Programs

Magma

Mathematica

PARI

A276138 Numbers without the decimal digits 1, 3, 5 and 7.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Formula

A307913 Numbers without the decimal digits 3, 6 and 9.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI