A059887 -id:A059887 - cp's OEIS frontend

A366634 Sum of the divisors of 7^n-1.

12, 124, 780, 7812, 33624, 354640, 1704240, 18929096, 97036800, 800520192, 3958188480, 56928231360, 193778020824, 1830926384640, 11181115146240, 115997032277280, 465294239722800, 5175558387507200, 22852200371636160, 287850454432579584, 1318081737957660000

Offset: 1

Sean A. Irvine, Oct 14 2023

nonn

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

Max Alekseyev, Table of n, a(n) for n = 1..388

Cf. A024075, A000203, A057954, A059887, A074249, A218358, A366632, A366633, A366635.

Cf. A075708, A366576, A366603, A366613, A366622, A366653, A366662, A102146, A366684, A366710.

a:=n->numtheory[sigma](7^n-1):
seq(a(n), n=1..100);

Mathematica
```
DivisorSigma[1, 7^Range[30]-1]
```

a(n) = sigma(7^n-1) = A000203(A024075(n)).

A085030 Number of prime factors of cyclotomic(n,5), which is A019323(n), the value of the n-th cyclotomic polynomial evaluated at x=5.

Original entry on oeis.org

2, 2, 1, 2, 2, 2, 1, 2, 2, 1, 1, 1, 1, 2, 2, 3, 2, 2, 3, 2, 2, 3, 2, 1, 4, 2, 4, 1, 3, 2, 2, 3, 2, 2, 4, 2, 3, 3, 2, 2, 2, 4, 2, 2, 3, 2, 1, 1, 1, 2, 3, 3, 3, 4, 5, 1, 1, 2, 2, 2, 3, 3, 3, 4, 3, 2, 5, 4, 4, 2, 2, 3, 3, 3, 5, 2, 3, 2, 3, 2, 2, 4, 3, 2, 3, 4, 3, 1, 6, 1, 2, 1, 4, 3, 4, 2, 3, 3, 4, 3

Offset: 1

T. D. Noe, Jun 19 2003

nonn

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

See references at A085021

Max Alekseyev, Table of n, a(n) for n = 1..502

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

Cf. A019323, A057956, A059887, A074479.

Table[Plus@@Transpose[FactorInteger[Cyclotomic[n, 5]]][[2]], {n, 1, 100}]

A366612 Number of divisors of 5^n-1.

Original entry on oeis.org

3, 8, 6, 20, 12, 48, 6, 48, 24, 64, 6, 240, 6, 64, 96, 224, 12, 512, 24, 640, 48, 128, 12, 1152, 192, 64, 384, 320, 24, 6144, 12, 1024, 48, 128, 384, 10240, 24, 512, 48, 6144, 12, 18432, 12, 1280, 3072, 128, 6, 10752, 12, 4096, 192, 960, 24, 81920, 576, 1536

Offset: 1

Sean A. Irvine, Oct 14 2023

nonn

			a(3)=6 because 5^3-1 has divisors {1, 2, 4, 31, 62, 124}.

Max Alekseyev, Table of n, a(n) for n = 1..502

Cf. A024049, A000005, A057956, A059887, A074479, A143665, A295502, A218357, A366611, A366613.

Cf. A046801, A366575, A366602, A366621, A366633, A366652, A366661, A070528, A366683, A366709.

a:=n->numtheory[tau](5^n-1):
seq(a(n), n=1..100);

Mathematica
```
DivisorSigma[0, 5^Range[100]-1]
```
PARI
```
a(n) = numdiv(5^n-1);
```

a(n) = sigma0(5^n-1) = A000005(A024049(n)).

A366611 Number of distinct prime divisors of 5^n - 1.

Original entry on oeis.org

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

Offset: 1

Sean A. Irvine, Oct 14 2023

nonn

Max Alekseyev, Table of n, a(n) for n = 1..502

Cf. A024049, A001221, A057956, A059887, A074479, A143665, A218357, A295502, A366612, A366613.

Cf. A046800, A133801, A366604, A366620, A366632, A366651, A366660, A102347, A366681, A366707.

for(n = 1, 100, print1(omega(5^n - 1), ", "))

a(n) = omega(5^n-1) = A001221(A024049(n)).

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

Original entry on oeis.org

1, 2, 4, 3, 6, 8, 12, 24, 31, 62, 124, 13, 16, 26, 39, 48, 52, 78, 104, 156, 208, 312, 624, 11, 22, 44, 71, 142, 284, 781, 1562, 3124, 7, 9, 14, 18, 21, 28, 36, 42, 56, 63, 72, 84, 93, 126, 168, 186, 217, 248, 252, 279, 372, 434, 504, 558, 651, 744, 868, 1116

Offset: 1

Boris Putievskiy, Jun 02 2012

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

			Triangle T(n,k) begins:
   1,  2,   4;
   3,  6,   8, 12,  24;
  31, 62, 124;
  13, 16,  26, 39,  48,  52,  78,  104,  156, 208, 312, 624;
  11, 22,  44, 71, 142, 284, 781, 1562, 3124;
  ...

R. Lidl and H. Niederreiter, Finite Fields, 2nd ed., Cambridge Univ. Press, 1997, Table C, pp. 557-560.

Alois P. Heinz, Rows n = 1..32, flattened
V. I. Arnol'd, Topology and statistics of formulas of arithmetics, Uspekhi Mat. Nauk, 58:4(352) (2003), 3-28

Cf. A212906, A059912, A058944, A059499, A059886-A059892.
Column k=3 of A212737.
Column k=1 gives: A218357.

with(numtheory):
M:= proc(n) option remember;
      `if`(n=1, {1, 2, 4}, divisors(5^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..8);

M[n_] := M[n] = If[n == 1, {1, 2, 4}, Divisors[5^n-1] ~Complement~ U[n-1]];
U[n_] := U[n] = If[n == 0, {}, M[n] ~Union~ U[n - 1]];
T[n_] := Sort[M[n]]; Array[T, 8] // Flatten (* Jean-François Alcover, Jun 10 2018, from Maple *)

T(n,k) = k-th smallest element of M(n) with M(n) = {d : d | (5^n-1)} \ (M(1) U M(2) U ... U M(i-1)) for n>1, M(1) = {1,2,4}.

|M(n)| = Sum_{d|n} mu(n/d)*tau(5^d-1) = A059887.

cp's OEIS Frontend

A366634 Sum of the divisors of 7^n-1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A085030 Number of prime factors of cyclotomic(n,5), which is A019323(n), the value of the n-th cyclotomic polynomial evaluated at x=5.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Mathematica

A366612 Number of divisors of 5^n-1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A366611 Number of distinct prime divisors of 5^n - 1.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

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

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Formula