login
A292285
GCD of orders (in GF(p)) of primes dividing p-1, for odd primes p.
2
2, 4, 3, 5, 3, 8, 18, 11, 7, 1, 18, 20, 2, 23, 13, 29, 10, 22, 5, 3, 39, 41, 11, 48, 25, 17, 53, 9, 14, 7, 65, 68, 46, 37, 5, 2, 162, 83, 43, 89, 15, 19, 16, 98, 11, 35, 37, 113, 19, 29, 119, 8, 25, 16, 131, 67, 3, 23, 10, 94, 73, 1, 155, 39, 79, 15, 7, 173, 174, 88, 179, 61, 62, 378, 191, 97, 11, 25, 51, 418, 35, 43, 9, 73, 17, 112, 38, 23, 77
OFFSET
2,1
LINKS
Seva, Posting on mathoverflow.net, October 29 2014.
EXAMPLE
For n = 14, the 14th prime is 43. The prime divisors of 42 are 2, 3, 7. The orders of 2, 3, 7, respectively, in GF(43), are 14,42,6, with GCD 2.
MAPLE
with(numtheory):
a:= n-> (p-> igcd(map(x-> order(x, p), factorset(p-1))[]))(ithprime(n)):
seq(a(n), n=2..100); # Alois P. Heinz, Dec 01 2017
MATHEMATICA
a[n_] := With[{k = Prime[n]-1}, GCD @@ (MultiplicativeOrder[#, k+1]& /@ FactorInteger[k][[All, 1]])];
Table[a[n], {n, 2, 100}] (* Jean-François Alcover, Apr 30 2019 *)
CROSSREFS
Sequence in context: A256751 A249484 A134017 * A163984 A283366 A048186
KEYWORD
nonn,look
AUTHOR
Jeffrey Shallit, Dec 01 2017
STATUS
approved