|
%I #9 Apr 18 2020 00:49:01
%S 8,18,38,58,78,81,83,85,87,88,89,98,118,138,158,178,181,183,185,187,
%T 188,189,198,318,338,358,378,381,383,385,387,388,389,398,518,538,558,
%U 578,581,583,585,587,588,589,598,718,738,758,778,781,783,785,787,788,789
%N Numbers where 8 is the only even decimal digit.
%C This is a 10-automatic language. - _Charles R Greathouse IV_, Oct 05 2011
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>
%t Select[Range[800],DigitCount[#,10,8]>0&&Table[DigitCount[#,10,n],{n,{0,2,4,6}}]=={0,0,0,0}&] (* _Harvey P. Dale_, Mar 22 2015 *)
%o (Perl) for (0..1000) {
%o print "$_, " if (/^[135789]*8[135789]*$/)
%o } # _Charles R Greathouse IV_, Oct 05 2011
%K base,easy,nonn
%O 1,1
%A _Eric Angelini_, Oct 21 2004
|
