login
Number of rows with the value "false" in the Kleene truth tables of all bracketed formulae with n distinct propositions p1, ..., pn connected by the binary connective of implication.
2

%I #10 May 21 2022 08:28:57

%S 1,1,6,41,330,2882,26604,255313,2521986,25473638,261898548,2731724778,

%T 28836047844,307477681188,3306988334808,35833139582529,

%U 390803960909106,4286644113507902,47258491871201508,523372307883323566,5819831138546794860,64954314678710555612,727371707764232349672

%N Number of rows with the value "false" in the Kleene truth tables of all bracketed formulae with n distinct propositions p1, ..., pn connected by the binary connective of implication.

%H G. C. Greubel, <a href="/A345189/b345189.txt">Table of n, a(n) for n = 1..925</a>

%H Volkan Yildiz, <a href="https://arxiv.org/abs/2106.04728">Notes on algebraic structure of truth tables of bracketed formulae connected by implications</a>, arXiv:2106.04728 [math.CO], 2021.

%F G.f.: (-2-sqrt(1-12*x)+sqrt(5+24*x+4*sqrt(1-12*x)))/6.

%F a(n) = 2*A005159(n-1) - A345190(n). - _G. C. Greubel_, May 20 2022

%t CoefficientList[Series[(-2 -Sqrt[1-12*x] +Sqrt[5 +24*x +4*Sqrt[1-12*x]])/6, {x, 0, 40}], x]//Rest (* _G. C. Greubel_, May 20 2022 *)

%o (PARI) my(x='x+O('x^30)); Vec((-2-sqrt(1-12*x)+sqrt(5+24*x+4*sqrt(1-12*x)))/6)

%o (SageMath)

%o def A345189_list(prec):

%o P.<x> = PowerSeriesRing(ZZ, prec)

%o return P( (-2-sqrt(1-12*x)+sqrt(5+24*x+4*sqrt(1-12*x)))/6 ).list()

%o a=A345189_list(40); a[1:] # _G. C. Greubel_, May 20 2022

%Y Cf. A005159 (unknown rows, shifted), A025226 (all rows), A345190 (true rows).

%K nonn

%O 1,3

%A _Michel Marcus_, Jun 10 2021