|
%I #6 Feb 15 2017 00:14:31
%S 0,4,8,20,24,28,40,44,48,60,64,68,80,84,88,200,204,208,220,224,228,
%T 240,244,248,260,264,268,280,284,288,400,404,408,420,424,428,440,444,
%U 448,460,464,468,480,484,488,600,604,608,620,624,628,640,644,648,660,664,668,680,684,688
%N Multiples of 4 containing only even digits.
%H Harvey P. Dale, <a href="/A061814/b061814.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%e 244 is a term 244 = 4*61
%t Select[4*Range[0,200],AllTrue[IntegerDigits[#],EvenQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 02 2016 *)
%o (PARI) is(n)=n%4==0 && #setintersect(Set(digits(n)), [1,3,5,7,9])==0 \\ _Charles R Greathouse IV_, Feb 15 2017
%Y Cf. A014263.
%K nonn,base,easy
%O 0,2
%A _Amarnath Murthy_, May 28 2001
|
