A266413-OEIS公司

A266413型

a（1）=1，之后每个a（n）=A002487号（n） -从序列中尚未包含的数字中选择的第个数字。

三

1, 2, 4, 3, 7, 6, 9, 5, 12, 11, 15, 10, 17, 14, 18, 8, 21, 20, 25, 19, 28, 24, 29, 16, 31, 27, 34, 23, 35, 30, 33, 13, 38, 37, 43, 36, 47, 42, 48, 32, 51, 46, 55, 41, 56, 49, 53, 26, 57, 52, 62, 45, 65, 59, 64, 40, 66, 60, 69, 50, 68, 58, 63, 22, 71, 70, 77, 67, 82, 76, 83, 61, 87, 81, 92, 75, 93, 84, 89, 54, 94, 88, 101, 80 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	链接	`安蒂·卡图恩，n=1..16385时的n，a（n）表` `自然数排列序列的索引项`
	数学	`f[n_]：=块[{a={1}，g，b=范围[2]，n]}，g[1]=1；g[x_]：=g[x]=如果[EvenQ@x，g[x/2]，g[（x-1）/2]+g[（x+1）/2]]；Do[{AppendTo[a，#[[1，1]]]，Set[b，Last@#]}&@If[#>Length@b，Break[]，TakeDrop[b，{#}]]&@g@k，{k，2，n}]；a] ；f@103(迈克尔·德弗利格，2015年12月29日，10.2版，之后N.J.A.斯隆在A002487号)`
	黄体脂酮素	`（方案，带有Antti Karttunen的IntSeq-library中的defineperm1-macro）` `（定义1(A266413型n）（如果（<=n 1）n（let loop（i 1））（第n个（+-1(A002487号n）））（cond（非lte？）(A266414型i） n）（如果（零？第n个一）i（回路（+i 1）（-第n个1）））（否则（回路（+1）第n个））））` `（定义(A266414型n）(2016年2月13日（-n））；；这将返回的反比值A266413型从defineperm1-macro准备的隐藏缓存中#对于尚未遇到的n，返回f。` `;; 在a为#f的情况下，我们也考虑a>b（即不小于b）。` `;; （由于defineperm1-macro使用的有状态缓存系统）：` `（define（not-lte？a b）（cond（（not（number？a））#t）（else（>a b）））`
	交叉参考	`反向：A266414型.` `囊性纤维变性。A002487号.` `奎田风格的类似排列：A119435号,A126917号,A246165型,1964年2月11日.` `另请参阅A266405型.` `上下文中的序列：A218602型 A114537号 A243349号2014年2月 A246165型 A260432型` `相邻序列：A266410型 A266411型 A266412型A266414型 A266415型 A266416型`
	关键词	`非n`
	作者	`安蒂·卡图恩2015年12月29日`
	状态	`经核准的`