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 A317369 #16 Aug 03 2018 04:29:43
%S A317369 0,1,1,2,2,2,3,3,2,2,2,6,6,6,3,3,3,3,6,6,6,6,7,7,7,7,7,5,5,5,5,5,5,6,
%T A317369 6,6,6,6,6,13,13,13,13,13,13,6,6,6,6,6,6,6,20,20,20,20,20,20,20,7,7,7,
%U A317369 7,7,7,7,7,13,13,13,13,13,13,13,13,14,14,14,14,14,14,14,14,14,9,9,9,9,9,9,9,9,9,9
%N A317369 a(0) = 0, a(1) = 1; for n >= 2, a(n) = freq(a(n-s(n)),n) where s = A000196 and freq(i, j) is the number of times i appears in the terms a(0) .. a(j-1).
%H A317369 Altug Alkan, <a href="/A317369/a317369.png">A line graph of a(n) for n <= 50000</a>
%H A317369 Altug Alkan, <a href="/A317369/a317369_1.png">A line graph of a(n) - A000196(n) + 1 </a>
%t A317369 Nest[Append[#1, Count[#1, #1[[-Floor@ Sqrt@ #2]] ]] & @@ {#, Length@ #} &, {0, 1}, 92] (* _Michael De Vlieger_, Jul 27 2018 *)
%Y A317369 Cf. A000196, A028391, A317223, A317359.
%K A317369 nonn
%O A317369 0,4
%A A317369 _Altug Alkan_, Jul 26 2018