搜索： a266413-编号：a266423
|
| |
| |
|
|
|
1, 2, 4, 3, 8, 6, 5, 16, 7, 12, 10, 9, 32, 14, 11, 24, 13, 15, 20, 18, 17, 64, 28, 22, 19, 48, 26, 21, 23, 30, 25, 40, 31, 27, 29, 36, 34, 33, 128, 56, 44, 38, 35, 96, 52, 42, 37, 39, 46, 60, 41, 50, 47, 80, 43, 45, 49, 62, 54, 58, 72, 51, 63, 55, 53, 57, 68, 61, 59, 66, 65, 256, 112, 88, 76, 70, 67, 192, 104, 84, 74, 69, 71, 78, 92, 120
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
黄体脂酮素
|
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
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
|
|
|
链接
|
|
|
|
数学
|
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号*)
|
|
|
黄体脂酮素
|
（方案，带有Antti Karttunen的IntSeq-library中的defineperm1-macro）
（定义术语1(A266411型n） （如果（<=n 1）n（let loop（（i 1））（第n个(A004074号n） ）（cond（非lte？）(A266412型i） n）（如果（零？第n个一）i（回路（+i 1）（-第n个1）））（否则（回路（+1）第n个））））
；；在a是#f的情况下，我们也考虑a>b（即不小于b）。
;; （由于defineperm1-macro使用的有状态缓存系统）：
（define（not-lte？a b）（cond（（not（number？a））#t）（else（>a b）））
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.005秒内完成
|
