|
%I #10 Dec 26 2017 18:38:14
%S 0,0,1,1,2,5,10,23,55
%N Number of ways of inserting parentheses in x^x^...^x (with n x's) whose result is an integer where x = sqrt(2).
%C The largest value that can be obtained by inserting parentheses in x^x^x^x^x^x^x^x^x (9 x's), where x = sqrt(2), is x^(x^((((((x^x)^x)^x)^x)^x)^x)) = 2^128 = 340282366920938463463374607431768211456; this is one of the a(9) = 55 ways of inserting parentheses in x^x^x^x^x^x^x^x^x that yield an integer value.
%H R. K. Guy and J. L. Selfridge, <a href="http://www.jstor.org/stable/2319392">The nesting and roosting habits of the laddered parenthesis</a>, Amer. Math. Monthly 80 (8) (1973), 868-876.
%H R. K. Guy and J. L. Selfridge, <a href="/A003018/a003018.pdf">The nesting and roosting habits of the laddered parenthesis</a> (annotated cached copy, with permission)
%H <a href="/index/Par#parens">Index entries for sequences related to parenthesizing</a>
%e With x = sqrt(2),
%e x = 1.414213... is not an integer, so a(1) = 0;
%e x^x = 1.632526... is not an integer, so a(2) = 0.
%e (x^x)^x = 2 is an integer, but x^(x^x) = 1.760839... is not, so a(3) = 1;
%e ((x^x)^x)^x, (x^x)^(x^x), (x^(x^x))^x, and x^(x^(x^x)) are noninteger values, but x^((x^x)^x) = 2, so a(4) = 1;
%e the only ways of inserting parentheses in x^x^x^x^x that yield integer values are x^(x^((x^x)^x)) = 2 and (((x^x)^x)^x)^x = 4, so a(5) = 2.
%t With[{x = Sqrt@ 2}, Array[Count[#, _?IntegerQ] &@ Map[ToExpression@ StringReplace[ToString@ #, {"{" -> "(", "}" -> ")", "," -> "^"}] &, Groupings[#, 2] /. _Integer -> x] &, 9]] (* _Michael De Vlieger_, Dec 24 2017 *)
%Y Cf. A002845, A055113, A082499, A198683.
%K nonn,more
%O 1,5
%A _Jon E. Schoenfield_, Dec 24 2017
|
