%I #9 Jul 19 2016 02:51:34
%S 0,4,8,12,14,16,20,24,28,32,34,36,40,41,42,43,44,45,46,47,48,49,52,54,
%T 56,60,64,68,72,74,76,80,84,88,92,94,96,100,104,108,112,114,116,120,
%U 124,128,132,134,136,140,141,142,143,144,145,146,147,148,149,152,154,156
%N Numbers that either contain the digit 4 or are divisible by 4.
%H Vincenzo Librandi, <a href="/A092453/b092453.txt">Table of n, a(n) for n = 0..1000</a>
%t Select[Range[0, 300], Mod[#, 4] == 0||MemberQ[IntegerDigits[#], 4] &] (* _Vincenzo Librandi_, Jul 19 2016 *)
%Y Cf. A092433, A092451-A092457.
%K nonn,base
%O 0,2
%A _N. J. A. Sloane_, Mar 24 2004
%E More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 25 2004
|