编辑
经核准的
a(1)=2;a(2)=3;n> =3:a(n)=分子(2 * a(n-1) * a(n-2) / (a(n-2)) + a(n-1)))。
nxt[{a_,b}]:={b,分子[HarmonicMean[{a,b}]]};转座[ 嵌套列表[nxt,{2,3},30]][[1](*哈维·P·戴尔2013年7月25日*)
提出
阿洛伊斯·海因茨是的,现在好多了。谢谢。
a(1)=2;a(2)=3;n> =3:a(n)=分子(谐波 意思是 属于 2 * a(n-1)& * 一(n个-2) / (a(n-2) + 一(n个-1))).
推测:G.f.:x*(2+3*x+12*x^2+8*x^3+8*x^4)/[(1-2*x)*(1+2*x+4*x^2)]。当n>0时,a(3n)=(3/2)*8^n,a(3n+1)=3*8^n,a(3n+2)=2*8^n-- _拉尔夫·斯蒂芬, _, 12月1 01 2010
乔恩·肖恩菲尔德:这是一种改进吗?(我更改的公式似乎基本上只是重述了名称……)
nxt[{a_,b}]:={b,分子[HarmonicMean[{a,b}]]};转座[NestList[nxt,{2,3},30]][[1](*哈维·P·戴尔2013年7月25日*)
_扎克·塞多夫 (扎克塞多夫(自动变速箱)雅虎.通用域名格式), _, 2005年6月10日
OEIS服务器: https://oeis.org/edit/global/139
检验过的
推测:G.f.:x*(2+3*x+12*x^2+8*x^3+8*x^4)/[(1-2*x)*(1+2*x+4*x^2)]。a(3n)=(3/2)*8^n,a(3n+1)=3*8^n,a(3+2)=2*8^ n, 对于 n个>0--Ralf Stephan,2010年12月1日