|
%I #16 Nov 15 2022 10:47:03
%S 1,2,3,4,5,6,7,8,9,11,15,18,20,23,25,30,38,49,62,77,94,110,129,149,
%T 172,195,218,241,266,293,323,356,389,424,461,500,545,593,641,688,737,
%U 787,839,896,957,1021,1085,1152,1219,1291,1368,1447,1527,1611,1697,1788
%N Record values in A030717.
%H Seiichi Manyama, <a href="/A030721/b030721.txt">Table of n, a(n) for n = 1..500</a>
%t s = {1}; t = {{1}}; Do[AppendTo[t, BinCounts[#, {1, Max[#] + 1}] &[Flatten[t]]]; AppendTo[s, Max@ Flatten@ t], {58}]; s (* _Michael De Vlieger_, Nov 15 2022, after _Peter J. C. Moses_ at A030717 *)
%Y Cf. A030717, A030722.
%K nonn
%O 1,2
%A _Clark Kimberling_
%E More terms and simpler title from _Sean A. Irvine_, Apr 08 2020
|
