%I #10 Sep 17 2017 03:40:53
%S 0,0,0,3,4,5,6,7,8,9,0,0,0,3,4,5,6,7,8,9,0,0,0,3,4,5,6,7,8,9,30,3,3,
%T 33,34,35,36,37,38,39,40,4,4,43,44,45,46,47,48,49,50,5,5,53,54,55,56,
%U 57,58,59,60,6,6,63,64,65,66,67,68,69,70,7,7,73,74,75,76,77,78,79,80,8,8,83,84,85,86,87,88,89,90,9,9,93,94,95,96,97,98,99,0,0,0,3,4,5,6,7,8,9,0,0,0,3,4
%N Omit all 1's and 2's from n.
%H Michel Marcus, <a href="/A176407/b176407.txt">Table of n, a(n) for n = 0..5000</a>
%t Table[FromDigits[DeleteCases[IntegerDigits[n], 1 | 2]], {n, 300}]
%o (PARI) a(n) = fromdigits(select(x->((x!=1) && (x!=2)), digits(n))); \\ _Michel Marcus_, Sep 17 2017
%Y Cf. A004176 (Omit 1's from n), A004177 (Omit 2's from n).
%K nonn,base
%O 0,4
%A _Zak Seidov_, Dec 07 2010
|