proposed
approved
proposed
approved
editing
proposed
a[n_] := a[n] = With[{r = (-1 + Sqrt[8n + 1])/2}, Which[n <= 1, n, IntegerQ[r], 2 a[Floor[Sqrt[2n] + 1/2]] - 1, True, 2 a[n - Floor[r]]]];
Table[a[n], {n, 1, 100}] (* Jean-François Alcover, Dec 05 2021 *)
approved
editing
Reinhard Zumkeller (first 250 terms) & Antti Karttunen, <a href="/A220347/b220347_1.txt">Table of n, a(n) for n = 1..10440</a>
proposed
approved
editing
proposed
Inverse permutation of A183079, when seen as a flattened sequence.
Old name moved to comments by Antti Karttunen, May 18 2015