|
%I #9 Mar 27 2015 15:33:47
%S 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,
%T 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,
%U 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
%N Smallest positive k such that k*n contains only even digits.
%H Paul Tek, <a href="/A067044/b067044.txt">Table of n, a(n) for n = 1..10000</a>
%e 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.
%t 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 *)
%t 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 *)
%Y Cf. A061807.
%K nonn,base,easy
%O 1,1
%A _Amarnath Murthy_, Dec 29 2001
%E More terms from Eli McGowan (ejmcgowa(AT)mail.lakeheadu.ca), May 06 2002
%E Data corrected by _Paul Tek_, Jun 03 2013
|
