%I#63 2021年9月3日20:56:24

%S 1,2,3,5,9,15,27,47,55,951871913754157518311503166330073327，

%电话：66397039132791407926559281595311956319106239112639212479，

%电话：2252794249594505598499199011169983918022393969679399397208959

%N a（N）是最小的k，因此A307092（k）=N。

%C a（n）是最小的数字k，因此映射x->x+x^j的n次迭代（其中j是非负整数）需要从x=1达到x=k（每次迭代中的j不必相同）。

%H Yancheng Lu，<a href=“/A370074/A307074.txt”>序列的Pascal程序</a>

%H Minecraft Wiki，<a href=“https://minecraft.gamepedia.com/Commands/execute“>执行命令</a>

%e n | a（n）|映射|指数

%e（电子）---+----+------------------------------+------------

%e 1|1|1|[]

%e 2|2|1->2|[0]

%e 3|3|1->2->3|[0,0]

%e 4|5|1->2->4->5|[0,1,0]

%e 5|9|1->2->4->8->9|[0,1,1,0]

%e 6|15|1->2->6->7->14->15|[0,2,0,1,0]

%t（*要获得序列的更多项，请增加项和maxx，

%t，然后设置maxi=trunc（lb（maxx））*）

%t最大值=16；最大值=65536；术语=10；

%t a=嵌套列表[

%t函数[list，

%t删除重复项[

%t加入[list，

%t展平[表格[If[#+#^i<=maxx，#+##^i，1]，{i，0，maxi}]&/@

%t列表]]]，{1}，术语]；

%t b=前缀[表[Complement[a[i+1]]，a[[i]]]，{i，长度[a]-1}]，

%t第一[a]]；

%t最小/@b

%Y参考A307092。

%K nonn公司

%O 0,2

%A盐城路2019年3月22日