%I#27 2019年8月1日10:36:25
%S 1,11,12112113132111133114311341114411154114311155,
%电话:1111651115441115425631811115551116511166511155541194332,
%电话:11111 76611117761111651511166651233774112377441111111676611111767611117776111166665113777242123377741123777441
%N最小整数N,这样从1到N的所有数字(N是序列中N的秩)都可以由N的连续数字之和构成。
%C第18项(256318)很特别:它是序列前43项中唯一一个不以1开头的项,也是唯一一个数字sum(25)大于序列(18)中它的秩的项。
%C Barry Schwarz计算了a(44)到a(59),后者是序列中不以1开头的第二项;a(59)=2133888888552。Barry估计a(60)可能至少有13位数字。
%C a(60)=1111111 99999 8实际上有13位数字。a(100)<=1112399999999461.-_Giovanni Resta_,2019年8月1日
%H Giovanni Resta,n的表,n的a(n)表示n=1..85(术语1..59来自Jean-Marc Falcoz和Barry Schwarz)
%e序列的第18项为256318。从1到18的18个数字可以用一组256318的连续数字相加得到:1是数字1;2是数字2;3是数字3;4是3+1(连续);5是数字5;6是数字6;7是2+5(连续);8是数字8;9是6+3(连续的);10是6+3+1(连续);11是5+6(连续);12是3+1+8(连续);13是2+5+6(连续);14是5+6+3(连续);15是5+6+3+1(连续);16是2+5+6+3(连续);17是2+5+6+3+1(连续);18是6+3+1+8(连续)。
%t数组[With[{r=Range@#},SelectFirst[Range[10^6],SequenceCount[Union@Map[Total,#]&@Apply[Join,Table[Partition[#,i,1],{i,Length@#}]&@IntegerDigits@#,r]==1&]]&,18](*或*)
%t With[{s=Array[LengthWhile[#,#==1&]&@Differences@Union@Map[Total,#]&@Apply[Join,Table[Partition[#、i、1],{i,Length@#}]&@IntegerDigits@#&,10^6]},SelectFirst[#,FreeQ[IntegerDigits@#,0]&]&/@Values@PositionIndex@s](*Michael De Vlieger_,2017年12月13日*)
%K nonn,基础
%O 1,2号机组
%A _Eric Angelini和Jean-Marc Falcoz,2017年12月13日
|