cp's OEIS Frontend

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.

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

This page as a plain text file.
%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