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.

Previous Showing 11-15 of 15 results.

A059891 a(n) = |{m : multiplicative order of 9 mod m = n}|.

Original entry on oeis.org

4, 6, 12, 14, 20, 58, 12, 88, 112, 150, 60, 290, 12, 138, 732, 144, 124, 1088, 60, 670, 740, 570, 28, 13864, 360, 138, 3968, 1362, 252, 22058, 124, 320, 1972, 1146, 732, 10704, 124, 570, 12260, 15176, 124, 60470, 28, 11634, 195728, 282, 508, 116592, 2032
Offset: 1

Views

Author

Vladeta Jovovic, Feb 06 2001

Keywords

Comments

The multiplicative order of a mod m, gcd(a,m)=1, is the smallest natural number d for which a^d = 1 (mod m).
a(n) = number of orders of degree-n monic irreducible polynomials over GF(9).
Also, number of primitive factors of 9^n - 1. - Max Alekseyev, May 03 2022

Links

Crossrefs

Number of primitive factors of b^n - 1: A059499 (b=2), A059885(b=3), A059886 (b=4), A059887 (b=5), A059888 (b=6), A059889 (b=7), A059890 (b=8), this sequence (b=9), A059892 (b=10).
Cf. A000005, A008683, A027381, A053452, A057952, A058946, A274909.
Column k=9 of A212957.

Programs

  • Maple
    with(numtheory):
a:= n-> add(mobius(n/d)*tau(9^d-1), d=divisors(n)):
seq(a(n), n=1..40);  # Alois P. Heinz, Oct 12 2012
  • Mathematica
    a[n_] := Sum[MoebiusMu[n/d]*DivisorSigma[0, 9^d-1], {d, Divisors[n]}];
Table[a[n], {n, 1, 40}] (* Jean-François Alcover, Jan 13 2025, after Alois P. Heinz *)
  • PARI
    a(n) = sumdiv(n, d, moebius(n/d) * numdiv(9^d-1)); \\ Amiram Eldar, Jan 25 2025

Formula

a(n) = Sum_{d|n} mu(n/d)*tau(9^d-1), (mu(n) = Moebius function A008683, tau(n) = number of divisors of n A000005).

A085032 Number of prime factors of cyclotomic(n,7), which is A019325(n), the value of the n-th cyclotomic polynomial evaluated at x=7.

Original entry on oeis.org

2, 3, 2, 3, 1, 1, 2, 2, 3, 2, 2, 2, 1, 2, 2, 3, 2, 1, 2, 3, 1, 2, 3, 3, 2, 2, 5, 1, 3, 1, 3, 3, 3, 1, 2, 1, 3, 2, 3, 2, 3, 2, 2, 3, 2, 1, 2, 1, 4, 1, 4, 2, 3, 1, 1, 4, 4, 1, 4, 2, 4, 3, 1, 4, 5, 2, 4, 3, 3, 4, 2, 3, 5, 2, 2, 1, 3, 3, 2, 3, 5, 4, 7, 1
Offset: 1

Views

Author

T. D. Noe, Jun 19 2003

Keywords

Comments

The Mobius transform of this sequence yields A057954, number of prime factors of 7^n-1.

References

Links

Crossrefs

omega(Phi(n,x)): A085021 (x=2), A085028 (x=3), A085029 (x=4), A085030 (x=5), A085031 (x=6), this sequence (x=7), A085033 (x=8), A085034 (x=9), A085035 (x=10).
Cf. A019325, A057954, A059889, A074249.

Programs

  • Mathematica
    Table[Plus@@Transpose[FactorInteger[Cyclotomic[n, 7]]][[2]], {n, 1, 100}]

A366632 Number of distinct prime divisors of 7^n - 1.

Original entry on oeis.org

2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 4, 7, 3, 6, 6, 6, 4, 7, 4, 8, 6, 6, 5, 11, 5, 5, 9, 8, 5, 10, 5, 8, 8, 5, 7, 11, 5, 6, 7, 11, 5, 11, 4, 10, 10, 6, 4, 14, 8, 8, 9, 8, 5, 12, 6, 13, 8, 6, 6, 17, 6, 8, 9, 11, 9, 13, 6, 9, 9, 15, 4, 18, 7, 7, 10, 8, 9, 13, 4, 16, 13
Offset: 1

Views

Author

Sean A. Irvine, Oct 14 2023

Keywords

Links

Crossrefs

Cf. A024075, A001221, A057954, A059889, A074249, A218358, A366620, A366633, A366634, A366635.
Cf. A046800, A133801, A366604, A366611, A366620, A366651, A366660, A102347, A366681, A366707.

Programs

  • PARI
    for(n = 1, 100, print1(omega(7^n - 1), ", "))

Formula

a(n) = omega(7^n-1) = A001221(A024075(n)).

A366633 Number of divisors of 7^n-1.

Original entry on oeis.org

4, 10, 12, 36, 8, 60, 16, 84, 64, 80, 16, 864, 8, 160, 96, 384, 16, 640, 16, 1536, 96, 160, 32, 16128, 32, 80, 1280, 1152, 32, 3840, 32, 1728, 384, 80, 128, 18432, 32, 160, 192, 14336, 32, 7680, 16, 4608, 2048, 160, 16, 147456, 256, 640, 768, 1152, 32, 25600
Offset: 1

Views

Author

Sean A. Irvine, Oct 14 2023

Keywords

Examples

			a(5)=8 because 7^5-1 has divisors {1, 2, 3, 6, 2801, 5602, 8403, 168061}.

Links

Crossrefs

Cf. A024075, A000005, A057954, A059889, A074249, A218358, A366632, A366634, A366635.
Cf. A046801, A366575, A366602, A366612, A366621, A366652, A366661, A070528, A366683, A366709.

Programs

  • Maple
    a:=n->numtheory[tau](7^n-1):
seq(a(n), n=1..100);
  • Mathematica
    DivisorSigma[0, 7^Range[100]-1]
  • PARI
    a(n) = numdiv(7^n-1);

Formula

a(n) = sigma0(7^n-1) = A000005(A024075(n)).

A212486 Triangle T(n,k) of orders of degree-n irreducible polynomials over GF(7) listed in ascending order.

Original entry on oeis.org

1, 2, 3, 6, 4, 8, 12, 16, 24, 48, 9, 18, 19, 38, 57, 114, 171, 342, 5, 10, 15, 20, 25, 30, 32, 40, 50, 60, 75, 80, 96, 100, 120, 150, 160, 200, 240, 300, 400, 480, 600, 800, 1200, 2400, 2801, 5602, 8403, 16806, 36, 43, 72, 76, 86, 129, 144, 152, 172, 228, 258
Offset: 1

Views

Author

Boris Putievskiy, Jun 02 2012

Keywords

Comments

The elements m of row n, are also solutions to the equation: multiplicative order of 7 mod m = n, with gcd(m,7) = 1, cf. A053450.

Examples

			Triangle T(n,k) begins:
  1,  2,  3,  6;
  4,  8, 12, 16, 24,  48;
  9, 18, 19, 38, 57, 114, 171, 342;
  5, 10, 15, 20, 25,  30,  32,  40, 50, 60, 75, 80, 96, 100, 120, 150, 160, 200, 240, 300, 400, 480, 600, 800, 1200, 2400;
  ...

References

  • R. Lidl and H. Niederreiter, Finite Fields, 2nd ed., Cambridge Univ. Press, 1997, Table C, pp. 560-562.
  • V. I. Arnol'd, Topology and statistics of formulas of arithmetics, Uspekhi Mat. Nauk, 58:4(352) (2003), 3-28

Links

Crossrefs

Cf. A053446, A059912, A059885, A058944, A059499, A059886-A059892.
Column k=4 of A212737.
Column k=1 gives: A218358.

Programs

  • Maple
    with(numtheory):
M:= proc(n) option remember;
      `if`(n=1, {1, 2, 3, 6}, divisors(7^n-1) minus U(n-1))
    end:
U:= proc(n) option remember;
      `if`(n=0, {}, M(n) union U(n-1))
    end:
T:= n-> sort([M(n)[]])[]:
seq(T(n), n=1..7);
  • Mathematica
    M[n_] := M[n] = If[n == 1, {1, 2, 3, 6}, Divisors[7^n - 1] ~Complement~ U[n - 1]];
U[n_] := U[n] = If[n == 0, {}, M[n] ~Union~ U[n - 1]];
T[n_] := Sort[M[n]];
Table[T[n], {n, 1, 7}] // Flatten (* Jean-François Alcover, Sep 24 2022, from Maple code *)

Formula

T(n,k) = k-th smallest element of M(n) with M(n) = {d : d | (7^n-1)} \ (M(1) U M(2) U ... U M(i-1)) for n>1, M(1) = {1,2,3,6}.
|M(n)| = Sum_{d|n} mu(n/d)*tau(7^d-1) = A059889(n).
Previous Showing 11-15 of 15 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.