cp's OEIS Frontend

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.

A030719 Number of new terms at stage n in the formation of A030717.

This page as a plain text file.
%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_