%I#9 2015年3月27日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,2,1,2,1,1,8,18,1,14,2,2,2,
%温度2,2,8,8,6,6,12,1,2,1,2,1,6,4,1,6,1,4,4,8,9,4,4,7,14,1,4,14,14,1,
%U 4,1,4,1,12,4,4,48,3,8,3,6,6,34,1,6,1,8,1,8,1,24,1,32,2,5,22,3
%N最小的正k,使得k*N只包含偶数。
%H Paul Tek,n的表,n=1..10000的a(n)</a>
%e a(7)=4,在7的倍数中,即7、14、21、28 28是只有偶数的最小倍数,a(7”)=28/7=4。
%t表[k=n;而[Length[交集[{1,3,5,7,9},整数位数[k]]>0,k=k+n];k/n,{n,100}](*T.D.Noe_,2013年6月3日*)
%t sk[n_]:=模块[{k=1},While[!AllTrue[IntegerDigits[k*n],EvenQ],k++];k] ;数组[sk,100](*程序使用Mathematica版本10中的AllTrue函数*)(*_Harvey P.Dale_,2015年3月27日*)
%Y参考A061807。
%K nonn,基础,简单
%O 1,1号机组
%A _Amarnath Murthy,2001年12月29日
%E更多来自Eli McGowan的条款(ejmcgowa(AT)mail.lakeheadu.ca),2002年5月6日
%E数据由Paul Tek修正,2013年6月3日
|