A024952 a(n) = s(n+3)/5, where s is A024951.

1, 1, 6, 11, 16, 46, 106, 216, 501, 1111, 3026, 6941, 16106, 39571, 102291, 249886, 593231, 1466876, 3784726, 9385226, 22941751, 57430001, 148203456, 372194386, 925716416, 2325988621, 6058260656, 15328018016, 38481839451, 97762429061, 254498207801

Offset

1,3

Links

Table of n, a(n) for n=1..31.

Mathematica

d = 31; s = {1, 1, 5}; n = 4; Do[
 s = Append[s,
   Sum[s[[2 i - 1]]*s[[n - 2 i + 1]], {i, 1, Floor[(n + 2)/4]}]]; n++,
  d + 3]; s
a = {}; n = 1; Do[a = Append[a, s[[n + 3]]/5]; n++, d]; a  (* Jake L Lande, Jul 03 2024 *)

Crossrefs

Sequence in context: A242916 A256429 A024730 * A278833 A284293 A117800

Adjacent sequences: A024949 A024950 A024951 * A024953 A024954 A024955

Keyword

nonn

Author

Clark Kimberling

Status

approved