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,2

Links

Table of n, a(n) for n=1..47.

Index entries for 10-automatic sequences.

Example

84 = 7*12 is a term.

Mathematica

Select[7*Range[700], AllTrue[IntegerDigits[#], EvenQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 04 2017 *)

Prog

(PARI) is(n)=n%7==0 && #setintersect(Set(digits(n)), [1, 3, 5, 7, 9])==0 \\ Charles R Greathouse IV, Feb 15 2017

Crossrefs

Cf. A061825.

Sequence in context: A025368 A025359 A056031 * A326234 A260954 A349495

Adjacent sequences: A061823 A061824 A061825 * A061827 A061828 A061829

Keyword

nonn,base,easy

Author

Amarnath Murthy, May 28 2001

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), May 30 2001

a(1)=0 added by Georg Fischer, Feb 28 2023

Status

approved