This site is supported by donations to The OEIS Foundation.
User contributions
From OeisWiki
- 08:01, 5 January 2021 (diff | hist) . . (+51) . . User talk:Artur Jasinski (current)
- 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…')