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 A022855 #16 Feb 11 2025 16:51:41
%S A022855 1,1,2,5,13,35,97,271,761,2143,6042,17043,48081,135656,382752,1079939,
%T A022855 3047074,8597406,24257838,68444231,193117503,544886995,1537415492,
%U A022855 4337865331,12239421132,34533905116,97438480950,274925686472,775711324186,2188693483680,6175466331563
%N A022855 a(n) = [ a(n-1)/a(1) ] + [ a(n-1)/a(2) ] + ... + [ a(n-1)/a(n-1) ] for n >= 3, with initial terms 1,1.
%F A022855 a(n) ~ c * d^n, where d = 2.821530916787913161647514028120517886471375614018590071788760268658400644805..., c = 0.06693303886818014323088828992453194331872567432210373455545066012434187... - _Vaclav Kotesovec_, May 22 2019
%t A022855 Clear[a]; a[n_] := a[n] = If[n == 1, 1, Sum[Floor[a[n-1]/a[k]], {k, 1, n-1}]]; Table[a[n], {n, 1, 30}] (* _Vaclav Kotesovec_, May 22 2019 *)
%Y A022855 Cf. A022858, A022874.
%K A022855 nonn
%O A022855 1,3
%A A022855 _Clark Kimberling_
%E A022855 Name clarified by _Robert C. Lyons_, Feb 11 2025