%I #17 Dec 02 2023 08:12:23
%S 1,1,1,1,1,2,3,4,5,7,10,14,19,26,36,50,69,95,131,181,250,346,478,660,
%T 911,1259,1740,2404,3320,4586,6336,8754,12093,16705,23077,31881,44043,
%U 60844,84053,116116,160410,221602,306136,422916,584242,807110,1114996
%N G.f. A(x) satisfies A(x) = 1 / (1 - x * A(x^4)).
%H Seiichi Manyama, <a href="/A367794/b367794.txt">Table of n, a(n) for n = 0..5000</a>
%F a(0) = 1; a(n) = Sum_{k=0..floor((n-1)/4)} a(k) * a(n-1-4*k).
%o (PARI) a_vector(n) = my(v=vector(n+1)); v[1]=1; for(i=1, n, v[i+1]=sum(j=0, (i-1)\4, v[j+1]*v[i-4*j])); v;
%o (Python)
%o from functools import lru_cache
%o @lru_cache(maxsize=None)
%o def A367794(n): return sum(A367794(k)*A367794(n-1-(k<<2)) for k in range(n+3>>2)) if n else 1 # _Chai Wah Wu_, Nov 30 2023
%Y Cf. A000108, A000621, A367637, A367800.
%Y Cf. A367653, A367692, A367694, A367720.
%K nonn
%O 0,6
%A _Seiichi Manyama_, Nov 30 2023