This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A283480 #10 Mar 19 2017 01:09:43
%S A283480 1,2,2,2,3,3,3,3,4,4,5,6,6,6,6,6,7,7,8,8,8,9,9,9,10,11,12,12,12,12,12,
%T A283480 12,13,13,14,14,15,16,16,17,17,17,18,18,18,19,20,21,21,22,23,23,23,23,
%U A283480 24,25,26,27,27,27,27,27,27,27,28,28,29,29,30,30,30,31,31,32,32,32,33,33,34,35,35,36,37,37,37,37,38,38,39,40,40,41
%N A283480 Partial sums of A095901.
%H A283480 Antti Karttunen, <a href="/A283480/b283480.txt">Table of n, a(n) for n = 1..8192</a>
%F A283480 a(1) = 1; for n > 1, a(n) = A095901(n) + a(n-1).
%F A283480 Other identities. For all n >= 1:
%F A283480 a(A283481(n)) = n.
%F A283480 a(2^n) = A095902(n).
%t A283480 a[n_] := a[n] = If[n <= 2, 1, a[a[n - 1]] + a[n - a[n - 1]]]; Accumulate@ Table[Mod[a@ n, 2], {n, 92}] (* _Michael De Vlieger_, Mar 18 2017, after _Robert G. Wilson v_ at A004001 *)
%o A283480 (Scheme, with memoization-macro definec)
%o A283480 (definec (A283480 n) (if (= 1 n) n (+ (A095901 n) (A283480 (- n 1)))))
%o A283480 ;; Code for A004001 given under that entry.
%Y A283480 The least monotonic left inverse of A283481.
%Y A283480 Cf. A004001, A095901, A095902.
%K A283480 nonn
%O A283480 1,2
%A A283480 _Antti Karttunen_, Mar 18 2017