A061831 Multiples of 9 having only even digits.

0, 288, 468, 486, 648, 666, 684, 828, 846, 864, 882, 2088, 2268, 2286, 2448, 2466, 2484, 2628, 2646, 2664, 2682, 2808, 2826, 2844, 2862, 2880, 4068, 4086, 4248, 4266, 4284, 4428, 4446, 4464, 4482, 4608, 4626, 4644, 4662, 4680, 4806, 4824, 4842, 4860, 6048, 6066

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Index entries for 10-automatic sequences.

Formula

For n >= 2, a(A305826(n)+1) = 2*10^n+88. - Robert Israel, Jun 10 2018

Example

648 = 9*72 is a term having all even digits.

Maple

f:= proc(k) local L, t;
  L:= convert(k, base, 5);
  t:= 2*add(L[i]*10^(i-1), i=1..nops(L));
  if t mod 9 = 0 then t fi
end proc:
map(f, [$0..1000]); # Robert Israel, Jun 10 2018

Mathematica

Select[9*Range[0, 700], AllTrue[IntegerDigits[#], EvenQ] &] (* Harvey P. Dale, Aug 07 2021 *)

Prog

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

Crossrefs

Cf. A061829, A305826.

Sequence in context: A345807 A244196 A280515 * A250774 A082994 A127350

Adjacent sequences: A061828 A061829 A061830 * A061832 A061833 A061834

Keyword

nonn,base,easy

Author

Amarnath Murthy, May 29 2001

Extensions

Corrected and extended by Larry Reeves (larryr(AT)acm.org), May 30 2001

Offset corrected by Charles R Greathouse IV, Feb 15 2017

Missing term 2880 inserted by Robert Israel, Jun 10 2018

Status

approved