提出

经核准的

编辑

提出

f[n_]：=块[{a={1}，g，b=范围[2，n]}，g[1]=g[2]=1；g[x_]：=g[x]=g[g[x-1]]+g[x-g[x-2]；Do[{AppendTo[a，#[[1，1]]]，Set[b，Last@#]}&@If[#>Length@b，Break[]，TakeDrop[b，{#}]]&@（2g[#]-#+1）&@k，{k，2，n}]；a] ；f@97(*迈克尔·德弗利格2015年12月29日,版本 10.2，基于哈维·P·戴尔在A004074号*)

f[n_]：=块[{a={1}，g，b=范围[2，n]}，g[1]=g[2]=1；g[x_]：=g[x]=g[g[x-1]]+g[x-g[x-2]；Do[{AppendTo[a，#[[1，1]]]，Set[b，Last@#]}&@If[#>Length@b，Break[]，TakeDrop[b，{#}]]&@（2g[#]-#+1）&@k，{k，2，n}]；a] ；f@97(*迈克尔·德弗利格，2015年12月29日，基于哈维·P·戴尔在A004074号*)

提出

编辑

编辑

提出

Antti Karttunen，<a href=“/A266411型/b266411.txt“>n表，n=1..8192时为a（n）</a>

Hofstadter型序列的索引条目</a>

<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>

奎田风格的类似排列：A119435号,A126917号,A246165型,,A266413型.

A266413型囊性纤维变性.也 A265901型,A265903型.

分配一(1) =1,之后 哪一个 每个 一(n个) = (A004074号(n个)+1)-第个 数 挑选出来的 从 那些 不 然而 对于在里面 安蒂这个 卡图南序列.

1, 2, 4, 3, 6, 8, 7, 5, 10, 12, 14, 13, 16, 15, 11, 9, 18, 20, 22, 24, 23, 26, 28, 27, 30, 29, 25, 32, 31, 21, 19, 17, 34, 36, 38, 40, 42, 41, 44, 46, 48, 47, 50, 52, 51, 54, 53, 49, 56, 58, 57, 60, 59, 55, 62, 61, 45, 43, 64, 63, 39, 37, 35, 33, 66, 68, 70, 72, 74, 76, 75, 78, 80, 82, 84, 83, 86, 88, 90, 89, 92, 94, 93, 96, 95, 91

1, 2

（方案，带有Antti Karttunen的IntSeq-library中的defineperm1-macro）

（定义1(A266411型n） （如果（<=n 1）n（让循环（（i 1））（第n个(A004074号n） ）（cond（非lte？）(A266412型i） n）（如果（零？第n个一）i（回路（+i 1）（-第n个1）））（否则（回路（+1）第n个））））

（定义(A266412型n）(A266411型（-n））；；这将返回的反比值A266411型从defineperm1-macro准备的隐藏缓存中#对于尚未遇到的n，返回f。

;; 在a为#f的情况下，我们也考虑a>b（即不小于b）。

;; （由于defineperm1-macro使用的有状态缓存系统）：

（define（not-lte？a b）（cond（（not（number？a））#t）（else（>a b）））

反向：A266412型.

囊性纤维变性。A004074号.

奎田风格的类似排列：A119435号,A126917号,A246165型,

A266413型.

分配

非n

安蒂·卡图恩2015年12月29日

经核准的

编辑

分配给Antti Karttunen

分配

经核准的