OFFSET
0,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
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
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, May 28 2001
STATUS
approved