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 A357949 #31 Feb 26 2024 10:11:09 %S A357949 1,1,2,6,25,122,726,5064,40441,363603,3633852,39957180,479364841, %T A357949 6230652124,87218228180,1308153551160,20929018724041,355774626352325, %U A357949 6403681619657310,121666026312835410,2433257739200536081,51097345199332200726,1124122383340449444042 %N A357949 a(n) = Sum_{k=0..floor(n/4)} (n-3*k)!/k!. %F A357949 a(n) = (n-1) * a(n-1) + (n-2) * a(n-2) + (n-3) * a(n-3) + (n-6) * a(n-4) - 3 * a(n-5) - 3 * a(n-6) - 3 * a(n-7) + 4 for n > 6. %F A357949 a(n) ~ n! * (1 + 1/n^3 + 3/n^4 + 7/n^5 + 31/(2*n^6) + 77/(2*n^7) + 133/n^8 + 3913/(6*n^9) + 7473/(2*n^10) + ...). - _Vaclav Kotesovec_, Nov 25 2022 %F A357949 G.f.: Sum_{k>=0} k! * x^k/(1-x^4)^(k+1). - _Seiichi Manyama_, Feb 26 2024 %t A357949 Table[Sum[(n-3k)!/k!,{k,0,Floor[n/4]}],{n,0,30}] (* _Harvey P. Dale_, Apr 23 2023 *) %o A357949 (PARI) a(n) = sum(k=0, n\4, (n-3*k)!/k!); %Y A357949 Cf. A000522, A003470, A358493, A358494. %K A357949 nonn,easy %O A357949 0,3 %A A357949 _Seiichi Manyama_, Nov 19 2022