login
A061814
Multiples of 4 containing only even digits.
2
0, 4, 8, 20, 24, 28, 40, 44, 48, 60, 64, 68, 80, 84, 88, 200, 204, 208, 220, 224, 228, 240, 244, 248, 260, 264, 268, 280, 284, 288, 400, 404, 408, 420, 424, 428, 440, 444, 448, 460, 464, 468, 480, 484, 488, 600, 604, 608, 620, 624, 628, 640, 644, 648, 660, 664, 668, 680, 684, 688
OFFSET
0,2
EXAMPLE
244 is a term 244 = 4*61
MATHEMATICA
Select[4*Range[0, 200], AllTrue[IntegerDigits[#], EvenQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 02 2016 *)
PROG
(PARI) is(n)=n%4==0 && #setintersect(Set(digits(n)), [1, 3, 5, 7, 9])==0 \\ Charles R Greathouse IV, Feb 15 2017
CROSSREFS
Cf. A014263.
Sequence in context: A273174 A178447 A006580 * A087254 A160726 A191483
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, May 28 2001
STATUS
approved