A061826 Multiples of 7 containing only even digits.
0, 28, 42, 84, 224, 266, 280, 406, 420, 448, 462, 602, 644, 686, 826, 840, 868, 882, 2002, 2044, 2086, 2226, 2240, 2268, 2282, 2408, 2422, 2464, 2604, 2646, 2660, 2688, 2800, 2828, 2842, 2884, 4004, 4046, 4060, 4088, 4200, 4228, 4242, 4284, 4424, 4466, 4480
Offset: 1
Examples
84 = 7*12 is a term.
Crossrefs
Cf. A061825.
Programs
-
Mathematica
Select[7*Range[700],AllTrue[IntegerDigits[#],EvenQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 04 2017 *)
-
PARI
is(n)=n%7==0 && #setintersect(Set(digits(n)), [1,3,5,7,9])==0 \\ Charles R Greathouse IV, Feb 15 2017
Extensions
More terms from Larry Reeves (larryr(AT)acm.org), May 30 2001
a(1)=0 added by Georg Fischer, Feb 28 2023