login
A307913
Numbers without the decimal digits 3, 6 and 9.
1
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,3
COMMENTS
This sequence appears in the Korean counting game Sam-Yuk-Gu.
LINKS
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
PROG
(Magma) [n:n in [0..10000]| Set(Intseq(n, 10)) subset [0, 1, 2, 4, 5, 7, 8]]; // Marius A. Burtea, May 06 2019
(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
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Donghwi Park, May 06 2019
STATUS
approved