%I #15 May 22 2019 03:35:15
%S 0,1,2,3,0,5,6,7,8,9,10,11,12,13,1,15,16,17,18,19,20,21,22,23,2,25,26,
%T 27,28,29,30,31,32,33,3,35,36,37,38,39,0,1,2,3,0,5,6,7,8,9,50,51,52,
%U 53,5,55,56,57,58,59,60,61,62,63,6,65,66,67,68,69,70,71,72,73,7
%N Omit 4's from n.
%H Marius A. Burtea, <a href="/A004179/b004179.txt">Table of n, a(n) for n = 0..10000</a>
%t Table[FromDigits[DeleteCases[IntegerDigits[n], 4]], {n, 0, 100}] (* _Vincenzo Librandi_, May 22 2019 *)
%o (PARI) a(n)=subst(Pol(select(k->k-4,digits(n))),'x,10) \\ _Charles R Greathouse IV_, Oct 16 2012
%o (MATLAB) for u=0:100 ;v=dec2base(u, 10)-'0';v = v(v~=4);
%o if length(v)>0; sol(u+1)=(str2num(strrep(num2str(v), ' ', '')));else; sol(u+1)=0; end; end;
%o sol % _Marius A. Burtea_, May 20 2019
%K nonn,base,easy
%O 0,3
%A _N. J. A. Sloane_
|