OFFSET
1,1
COMMENTS
This is a 10-automatic language. - Charles R Greathouse IV, Oct 03 2011
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
PROG
(Perl) for (0..1000) {
print "$_, " if (/^[135679]*6[135679]*$/)
} # Charles R Greathouse IV, Oct 05 2011
(Python)
from itertools import product
def agen(maxdigits):
for digs in range(1, maxdigits+1):
for p in product("135679", repeat=digs):
if '6' in p: yield int("".join(p))
print([an for an in agen(3)]) # Michael S. Branicky, Jun 16 2021
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Eric Angelini, Oct 21 2004
STATUS
approved