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.

A341548 Number of commutative rings with additive group (Z/nZ)^2.

Original entry on oeis.org

1, 6, 6, 28, 6, 36, 6, 79, 35, 36, 6, 168, 6, 36, 36
Offset: 1

Views

Author

Keywords

Comments

It appears that a(16)=230, but it is preferable to wait for someone to confirm it.

Crossrefs

Programs

  • Mathematica
    Clear[phi]; phi[p_, 1] := 6;  phi[2,2] = 28; phi[2,3] = 79;  phi[3,2] = 35; phi[n_]:= Module[{aux = FactorInteger[n]}, Product[phi[aux[[i, 1]], aux[[i, 2]]], {i, Length[aux]}]];