OFFSET
1,1
COMMENTS
This is a 10-automatic language. - Charles R Greathouse IV, Oct 05 2011
PROG
(Perl) for (0..1000) {
print "$_, " if (/^[134579]*4[134579]*$/)
} # Charles R Greathouse IV, Oct 05 2011
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Eric Angelini, Oct 21 2004
STATUS
approved