cp's OEIS Frontend

A276138 Numbers without the decimal digits 1, 3, 5 and 7.

%I A276138 #12 Sep 08 2022 08:46:17
%S A276138 0,2,4,6,8,9,20,22,24,26,28,29,40,42,44,46,48,49,60,62,64,66,68,69,80,
%T A276138 82,84,86,88,89,90,92,94,96,98,99,200,202,204,206,208,209,220,222,224,
%U A276138 226,228,229,240,242,244,246,248,249,260,262,264,266
%N A276138 Numbers without the decimal digits 1, 3, 5 and 7.
%H A276138 Robert Israel, <a href="/A276138/b276138.txt">Table of n, a(n) for n = 1..10000</a>
%F A276138 a(6n-6+k) = 10 a(n) + a(k) for k = 1..6. - _Robert Israel_, Aug 24 2016
%p A276138 S:= [0]:
%p A276138 for d from 1 to 4 do S:= map(t ->  seq(10*t+i,i=[0,2,4,6,8,9]), S) od:
%p A276138 S; # _Robert Israel_, Aug 24 2016
%t A276138 Select[Select[Select[Select[Range[0, 400], FreeQ[IntegerDigits@#, 1] &], FreeQ[IntegerDigits@#, 3] &], FreeQ[IntegerDigits@#, 5] &], FreeQ[IntegerDigits@#, 7] &]
%o A276138 (Magma) [n: n in [0..500] | IsEmpty(Set([1,3,5,7]) meet Set(Intseq(n)))];
%Y A276138 Cf. A168501, A276137.
%K A276138 nonn,base,easy
%O A276138 1,2
%A A276138 _Vincenzo Librandi_, Aug 22 2016