This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A307913 #32 Jul 31 2025 16:34:41 %S A307913 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 A307913 45,47,48,50,51,52,54,55,57,58,70,71,72,74,75,77,78,80,81,82,84,85,87, %U A307913 88,100,101,102,104,105,107,108,110,111,112,114,115,117,118,120 %N A307913 Numbers without the decimal digits 3, 6 and 9. %C A307913 This sequence appears in the Korean counting game Sam-Yuk-Gu. %H A307913 Robert Israel, <a href="/A307913/b307913.txt">Table of n, a(n) for n = 1..10000</a> %p A307913 A:= [0,1,2,4,5,7,8]: %p A307913 for d from 1 to 2 do %p A307913 A:= map(t -> seq(10*t+i,i=[0,1,2,4,5,7,8]), A) %p A307913 od: %p A307913 A; # _Robert Israel_, May 15 2019 %t A307913 With[{dc=DigitCount},Select[Range[0,150],dc[#,10,3]==dc[#,10,6]==dc[#,10,9]==0&]] (* _Harvey P. Dale_, Jul 31 2025 *) %o A307913 (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 A307913 (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 A307913 Cf. A052382, A168501, A276137, A276138. %K A307913 nonn,easy,base %O A307913 1,3 %A A307913 _Donghwi Park_, May 06 2019