|
%I #16 Nov 15 2022 12:21:17
%S 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 45,47,50,53,56,60,62,65,69,72,78,83,86,88,92,95,99,105,110,114,117,
%U 122,125,130,136,140,144,149,153,159,162,167,173,180,184,188
%N Number of new terms at stage n in the formation of A030717.
%H 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 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 (Haskell)
%o a030719 n = a030719_list !! (n-1)
%o a030719_list = tail $ zipWith (-) (tail a253170_list) a253170_list
%o -- _Reinhard Zumkeller_, Dec 28 2014
%Y Cf. A030717, A253170.
%K nonn
%O 1,3
%A _Clark Kimberling_
|
