This site is supported by donations to The OEIS Foundation.

# User contributions

### From OeisWiki

(Latest | Earliest) View (newer 50) (older 50) (20 | 50 | 100 | 250 | 500)

- 22:32, 6 December 2010 (hist) (diff) 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…')

(Latest | Earliest) View (newer 50) (older 50) (20 | 50 | 100 | 250 | 500)