OFFSET
1,3
COMMENTS
PROG
(Perl) # For conv_x_base_n function, see A050607.
for($i=0; $i <= 1000; $i++) { if(("0" . conv_x_base_n($i, 7)) =~ /^(0|1|2|3)*((0|1|2)(4|5|6))?(0|1|2|3)*$/) { print $i, ", "; } }
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Antti Karttunen, 1999
EXTENSIONS
a(1)=0 inserted by Georg Fischer, Jun 26 2021
STATUS
approved