This site is supported by donations to The OEIS Foundation.

A020946

From OeisWiki
Jump to: navigation, search

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 (*Artur Jasinski, Dec 06 2010*)


I have added the above as a proposed edit to A020946 on the non-wiki "half" of this website, giving attribution to Artur Jasinski. Alonso del Arte 02:56, 7 December 2010 (UTC)