A369471 Number of chiral pairs of polyominoes composed of n pentagonal cells of the hyperbolic regular tiling with Schläfli symbol {5,oo}.
4, 24, 172, 1144, 8056, 57800, 427006, 3221216, 24773668, 193592840, 1534006620, 12301987920, 99699269740, 815520435048, 6725987757744, 55882659600320, 467387108739408, 3932600291539096, 33269691987278258, 282863688830816184
Offset: 4
Links
- Malin Christensson, Make hyperbolic tilings of images, web page, 2019.
Programs
-
Mathematica
p=5; Table[(Binomial[(p-1)n, n]/(((p-2)n+1)((p-2)n+2))-If[OddQ[n], If[OddQ[p], Binomial[(p-1)n/2, (n-1)/2]/n, (p+1)Binomial[((p-1)n-1)/2, (n-1)/2]/((p-2)n+2)-Binomial[((p-1)n+1)/2, (n-1)/2]/((p-1)n+1)], Binomial[(p-1)n/2, n/2]/((p-2)n+2)]+DivisorSum[GCD[p, n-1], EulerPhi[#]Binomial[((p-1)n+1)/#, (n-1)/#]/((p-1)n+1)&, #>1&])/2, {n, 4, 30}]
Comments