%I#6 2012年11月28日11:38:06
%S 7,6,1,15,8,2,17,14,10,3,6,61,62,74,42,48,16392193,57346,5,31461,
%电话:90,1148,28,32,67145,15328621267,34,92,81232,75126,99147,91,
%U 268139,43,18,12,8,35,41,6625101,65,88,37207,25112,89266,17,72115
%N第一次出现N是在2的立方根的小数部分,从N=0开始。
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/DelianConstant.html“>Delian常量</a>
%e 2^(1/3)的小数部分开始于259921049894873164767210607278……所以0的第一次出现在位置7;1的第一次出现在位置6;等。
%t Join[{7},With[{cr2=Rest[RealDigits[2^(1/3),101000][[1]]]},Flatten[Table[Position[Partition[cr2,IntegerLength[n],1],IntegerDigits[n],1,1],{n,70}]]](*_Harvey P.Dale_,2012年11月28日*)
%Y参考A002580获取2的立方根数字。
%K基础,简单,无
%O 0,1
%A Mark Hudson(mrmarkhdson(AT)hotmail.com),2004年11月4日
|