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

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

Author

Donghwi Park, May 06 2019

Keywords

• nonn
• easy
• base

Comments

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

Links

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

Crossrefs

Cf. A052382, A168501, A276137, A276138.

Programs

Magma

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

Maple

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

Mathematica

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

PARI

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