| 名称
|
分配 让 (f)(x个)是 总和 属于 x个 和 它的 颠倒 在里面 基础 2.让 克(x个,年)这个 结果 属于 应用 (f)(x个)到 x个 年 次.这 序列 是 这个 数字 具有 这个 属性 那个 克(x个,年)和 克(x个,年+4)有 这个 相同的 数 属于 跑 属于 连续的 数字 在里面 他们的 二元的 表示,和 每个 运行 在里面 克(x个,年+4)是 任何一个 这个 相同的 长度 作为 或 一 数字 比较长的 比 这个 枕木 运行 在里面 克(x个,年)对于 全部的 整数 值 迪伦属于 汉密尔顿年=>0.
|
| 数据
|
360, 405, 744, 837, 1416, 1488, 1557, 1581, 2904, 2984, 3024, 3213, 3333, 5904, 6048, 6189, 6237, 11400, 11952, 12112, 12192, 12501, 12573, 12813, 23448, 24096, 24384, 24669, 24765, 26757, 46248, 47376, 48480, 48800, 48960, 49581, 49725, 50205, 51669
|
| 数学
|
rev[x_,b_]:=起始数字[Reverse[IntegerDigits[x,b]],b]
revadd[x_,b]:=rev[x,b]+x
revsub[x_,b_]:=绝对值[rev[x,b]-x]
repcount[x_]:=长度/@拆分[x]
baserep[x_,Base_]:=转置[{First/@Split[IntegerDigits[x,Base]],repcount[IntigerDigits[x,Base]]}]
StableCycleFinder[UpperBound_,Base_]:=
(
bp=对数[2,基数];
周期=2+2*bp;
如果[IntegerQ[bp]&&bp>0,
循环列表={};
做[
如果[Not[MemberQ[cyclelist,x]],
a1={x};
a2={};
Do[AppendTo[a1,revadd[Last[a1],Base]],{period-1}];
附加到[a2,revadd[Last[a1],Base]];
b1=baserep[First[a1],Base];
b2=基本代表[第一[a2],基本];
len=1;
而[len<period&&First/@b1==First/@12&&Union[Last/@b2-Last/@b1]=={0,1},
附加到[a2,revadd[Last[a2],Base]];
len=长度[a2];
b1=基本代表[a1[[len]],基本];
b2=baserep[Last[a2],Base]
]
如果[len周期,a=压扁[{a1,a2}];虽然[UpperBound>=最后[a]&&Not[MemberQ[cyclelist,Last[a]]],AppendTo[a,revadd[Last[a],Base]]]
附加到[循环列表,a];cyclelist=并集[Flatten[cyclelist]]],
{x,上限}];
r=长度[cyclelist];
cyclelist=cyclelist[[1;;Count[Table[UpperBound>=cycleist[[q]],{q,r}],True]],
“请选择二次幂的基数”]
)
|