不要用截断的小数!- Select[Range[16000,20000],Floor[(10*2^#)/10^Floor[301#/1000]]==Floor[(10*5^#)/10^Floor[699 #/1000]]&]
复制代码
{16020,16113,16216,16309,16412,16505,16701}
- Select[Range[16000, 20000], Floor[(2^#)/10^Floor[# Log10[2] - 1]] ==Floor[(5^#)/10^Floor[# Log10[5] - 1]] &]
复制代码
- Select[Range[16000,20000],Take[IntegerDigits[2^#],2]==Take[IntegerDigits[5^#],2]&]
复制代码
{16020,16113,16216,16309,16412,16505,16598,16701,16794,16897,16990,17083,17186,17279,17382,17475,17568,17671,17764,17867,17960,18063,18156,18249,18352,18445,18548,18641,18734,18837,18930,19033,19126,19219,19322,19415,19518,19611,19704,19807,19900}
|