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 A030719 #16 Nov 15 2022 12:21:17 %S A030719 1,1,2,2,3,3,4,5,6,7,7,8,10,12,13,16,18,20,23,25,28,31,33,36,38,41,43, %T A030719 45,47,50,53,56,60,62,65,69,72,78,83,86,88,92,95,99,105,110,114,117, %U A030719 122,125,130,136,140,144,149,153,159,162,167,173,180,184,188 %N A030719 Number of new terms at stage n in the formation of A030717. %H A030719 Michael De Vlieger, <a href="/A030719/b030719.txt">Table of n, a(n) for n = 1..1024</a> (First 500 terms from Reinhard Zumkeller) %t A030719 nn = 63; c[_] = 0; r = k = a[1] = c[1] = 1; Reap[Do[w = Union@ Array[a, k]; Do[Set[a[j + k], c[w[[j]]]], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Sow[Length[w]], {nn}]][[-1, -1]] (* _Michael De Vlieger_, Nov 15 2022 *) %o A030719 (Haskell) %o A030719 a030719 n = a030719_list !! (n-1) %o A030719 a030719_list = tail $ zipWith (-) (tail a253170_list) a253170_list %o A030719 -- _Reinhard Zumkeller_, Dec 28 2014 %Y A030719 Cf. A030717, A253170. %K A030719 nonn %O A030719 1,3 %A A030719 _Clark Kimberling_