cp's OEIS Frontend

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.

A357288 a(n) = (1/4)*A357287(n).

This page as a plain text file.
%I A357288 #10 Oct 20 2022 12:44:47
%S A357288 0,0,0,0,0,0,1,2,5,12,23,42,85,144,251,454,753,1244,2183,3506,5725,
%T A357288 9736,15539,24926,41993,66228,105823,176138,277173,439648,729099,
%U A357288 1141430,1807713,2981900,4663991,7361890,12124173,18918072,29840739,49020942
%N A357288 a(n) = (1/4)*A357287(n).
%H A357288 <a href="/index/Rec#order_07">Index entries for linear recurrences with constant coefficients</a>, signature (2,1,0,-6,-4,16,-8).
%F A357288 a(n) = 2*a(n-1) + a(n-2) - 6*a(n-4) - 4*a(n-5) + 16*a(n-6) - 8*a(n-7).
%F A357288 G.f.:  x^6/((-1 + x)^2 (-1 + 2 x^2) (-1 + 4 x^3)).
%t A357288 s[n_] := s[n] = Select[Subsets[Range[n]], Length[#] >= 3 &];
%t A357288 a[n_] := Select[s[n], #[[1]] + #[[2]] + #[[3]] == #[[-1]] &]
%t A357288 (1/4)*Table[Length[a[n]], {n, 0, 15}]
%Y A357288 Cf. A357287.
%K A357288 nonn,easy
%O A357288 0,8
%A A357288 _Clark Kimberling_, Oct 02 2022