|
|
A248479号 |
| a(1)=1,a(2)=3,然后交替地减去和乘以前面的两个项。 |
|
三
|
|
|
1, 3, 2, 6, 4, 24, 20, 480, 460, 220800, 220340, 48651072000, 48650851660, 2366916086971979520000, 2366916086923328668340, 5602291762651594835806920193095352396800000, 5602291762651594835804553277008429068131660, 31385672993873913406017018916292673201543291913142263413575757282059524278962688000000
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
公式
|
a(1)=1,a(2)=3,之后,当n为奇数时,a(n)=a(n-1)-a(n-2),当n为偶数时,a(n)=a(n-1)*a(n-2)-安蒂·卡图恩2014年10月26日,在原作者发表评论后。
a(n)=(a(n-1)*a(n-2)+a-罗伯特·伊斯雷尔2014年10月27日
|
|
MAPLE公司
|
a: =proc(n)选项记忆;
分段(n::奇数,a(n-1)-a(n-2),a(n-1)*a(n-2
结束进程:
a(1):=1:a(2):=3:
|
|
数学
|
nxt[{n_,a_,b_}]:={n+1,b,如果[EvenQ[n],b-a,b*a]};嵌套列表[nxt,{2,1,3},20][[全部,2]](*哈维·P·戴尔2018年7月31日*)
|
|
黄体脂酮素
|
(方案)
;;可从以下位置找到记忆定义的宏http://oeis.org/wiki/Memoization网站 -安蒂·卡图恩2014年10月26日
(PARI)v=[1,3];对于(n=1,20,如果(n%2,v=concat(v,v[#v]-v[#v-1]));如果(!(n%2),v=concat(v,v[#v]*v[#v-1]));v(v)\\德里克·奥尔2014年10月26日
(哈斯克尔)
a248479 n=a248479_列表!!(n-1)
a248479_list=1:3:zipWith($)(映射unrry$cycle[(-),(*)])
(zip(尾部a248479_list)a248479 _ list)
|
|
交叉参考
|
|
|
关键字
|
非n,容易的
|
|
作者
|
|
|
扩展
|
修正了一个术语,增加了附加术语科林·巴克2014年10月7日
|
|
状态
|
经核准的
|
|
|
|