login
Associated with random Penrose-Robinson tilings of the plane.
4

%I #14 Jun 02 2017 12:27:53

%S 1,4,88,236544,211790340292608,56686233255830734129089579999779880960

%N Associated with random Penrose-Robinson tilings of the plane.

%C In the Mathematica code, let p=A235857; q=A235858 for convenience.

%H Steven R. Finch, <a href="/A072042/a072042.pdf">Substitution dynamics</a>, January 23, 2014. [Cached copy, with permission of the author]

%H C. Godrèche and J. M. Luck, <a href="http://dx.doi.org/10.1007/BF01042590">Quasiperiodicity and randomness in tilings of the plane</a>, J. Statist. Phys. 55 (1989) 1-28.

%t p[n_] := p[n] = 2 p[n-1] q[n-1] - p[n-1]^2 q[n-2];

%t q[n_] := 2 p[n] q[n-1] - p[n-1] p[n-2] q[n-1] q[n-2]^2;

%t p[0] = 1; q[0] = 1; p[1] = 2; q[1] = 4;

%Y Cf. A072042, A235857.

%K nonn

%O 0,2

%A _Steven Finch_, Jan 16 2014