这个网站是由捐款支持的OEIS基金会.

用户贡献

来自OeisWiki
跳转到:航行,搜索
搜索稿件
 
 
      
 
   

  • 18: 2010年12月6日32日(差异|历史). . (+197). . N A020946号(用'Mathematica procedure:aa={};a[0]=0;a[1]=1;a[n_u]:=If[EvenQ[n],a[n/2],a[(n-1)/2]+a[(n+1)/2]];Do[k=0;While[a[k]!=p,k++];附加到[aa,k],{p,0,100}];aa…')