This site is supported by donations to The OEIS Foundation.

User contributions

From OeisWiki
Jump to: navigation, search
Search for contributions
 
 
      
 
   

  • 18:32, 6 December 2010 (diff | hist) . . (+197). . N A020946(Created page with 'Mathematica procedure: aa = {}; a[0] = 0; a[1] = 1; a[n_] := If[EvenQ[n], a[n/2], a[(n - 1)/2] + a[(n + 1)/2]]; Do[k = 0; While[a[k] != p, k++]; AppendTo[aa, k], {p, 0, 100}]; aa…')