A067044 Smallest positive k such that k*n contains only even digits.

2, 1, 2, 1, 4, 1, 4, 1, 32, 2, 2, 2, 2, 2, 4, 3, 4, 16, 12, 1, 2, 1, 2, 1, 8, 1, 18, 1, 14, 2, 2, 2, 2, 2, 8, 8, 6, 6, 12, 1, 2, 1, 2, 1, 64, 1, 6, 1, 14, 4, 4, 4, 8, 9, 4, 4, 4, 7, 14, 1, 4, 1, 14, 1, 4, 1, 4, 1, 12, 4, 4, 4, 28, 3, 8, 3, 6, 6, 34, 1, 6, 1, 8, 1, 8, 1, 24, 1, 32, 32, 22, 5, 22, 3

Offset

1,1

Links

Paul Tek, Table of n, a(n) for n = 1..10000

Example

a(7)=4 as among the multiples of 7 i.e. 7,14,21,28 28 is the smallest multiple with only even digits and a(7)= 28/7 = 4.

Mathematica

Table[k = n; While[Length[Intersection[{1, 3, 5, 7, 9}, IntegerDigits[k]]] > 0, k = k + n]; k/n, {n, 100}] (* T. D. Noe, Jun 03 2013 *)
sk[n_]:=Module[{k=1}, While[!AllTrue[IntegerDigits[k*n], EvenQ], k++]; k]; Array[sk, 100] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 27 2015 *)

Crossrefs

Cf. A061807.

Sequence in context: A287597 A238552 A257523 * A325677 A343411 A287477

Adjacent sequences: A067041 A067042 A067043 * A067045 A067046 A067047

Keyword

nonn,base,easy

Author

Amarnath Murthy, Dec 29 2001

Extensions

More terms from Eli McGowan (ejmcgowa(AT)mail.lakeheadu.ca), May 06 2002

Data corrected by Paul Tek, Jun 03 2013

Status

approved