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.

Showing 1-2 of 2 results.

A368143 Number of ways of tiling the n X n torus up to 90-degree rotations of the square by two tiles that are each fixed under 90-degree rotation of the square.

Original entry on oeis.org

2, 6, 28, 1171, 337664, 477339616, 2872202032640, 72057595967392816, 7462505059899322983424, 3169126500571074529242309120, 5492677668532710795071526353530880, 38716571525226776289479030777920527620096, 1106936151351216411420552029913564178922327982080
Offset: 1

Views

Author

Peter Kagey, Dec 16 2023

Keywords

Crossrefs

Programs

  • Mathematica
    A368143[n_] := 1/(4n^2)*(DivisorSum[n, Function[d, DivisorSum[n, Function[c, EulerPhi[c] EulerPhi[d] 2^(n^2/LCM[c, d])]]]] + n^2*If[OddQ[n], 2^((n^2 + 1)/2) + 2^((n^2 + 7)/4), 7*2^((n^2 - 4)/2) + 5*2^(n^2/4)])

A368144 Number of ways of tiling the n X n torus up to 90-degree rotations of the square by a tile that is fixed only under 180-degree rotation of the square.

Original entry on oeis.org

1, 4, 24, 1155, 337600, 477339104, 2872202028544, 72057595967327280, 7462505059899321934848, 3169126500571074529208754688, 5492677668532710795071525279789056, 38716571525226776289479030777851808143360, 1106936151351216411420552029913564174524281470976
Offset: 1

Views

Author

Peter Kagey, Dec 16 2023

Keywords

Crossrefs

Programs

  • Mathematica
    A368144[n_] := 1/(4 n^2)*(DivisorSum[n, Function[d, DivisorSum[n, Function[c, EulerPhi[c] EulerPhi[d] 2^(n^2/LCM[c, d])]]]] + n^2*If[OddQ[n], 2^((n^2 + 1)/2), 7/4*2^(n^2/2) + 2^(n^2/4)])
Showing 1-2 of 2 results.