A307913 - OEIS

%I #30 Sep 08 2022 08:46:21

%S 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,

%T 45,47,48,50,51,52,54,55,57,58,70,71,72,74,75,77,78,80,81,82,84,85,87,

%U 88,100,101,102,104,105,107,108,110,111,112,114,115,117,118,120

%N Numbers without the decimal digits 3, 6 and 9.

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

%H Robert Israel, <a href="/A307913/b307913.txt">Table of n, a(n) for n = 1..10000</a>

%p A:= [0,1,2,4,5,7,8]:

%p for d from 1 to 2 do

%p   A:= map(t -> seq(10*t+i,i=[0,1,2,4,5,7,8]), A)

%p od:

%p A; # _Robert Israel_, May 15 2019

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

%o (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

%Y Cf. A052382, A168501, A276137, A276138.

%K nonn,easy,base

%O 1,3

%A _Donghwi Park_, May 06 2019