%I #9 Jul 23 2024 21:13:50
%S 1,1,6,11,16,46,106,216,501,1111,3026,6941,16106,39571,102291,249886,
%T 593231,1466876,3784726,9385226,22941751,57430001,148203456,372194386,
%U 925716416,2325988621,6058260656,15328018016,38481839451,97762429061,254498207801
%N a(n) = s(n+3)/5, where s is A024951.
%t d = 31; s = {1, 1, 5}; n = 4; Do[
%t s = Append[s,
%t Sum[s[[2 i - 1]]*s[[n - 2 i + 1]], {i, 1, Floor[(n + 2)/4]}]]; n++,
%t d + 3]; s
%t a = {}; n = 1; Do[a = Append[a, s[[n + 3]]/5]; n++, d]; a (* _Jake L Lande_, Jul 03 2024 *)
%K nonn
%O 1,3
%A _Clark Kimberling_
|