|
Search: id:A128906
|
|
|
| A128906 |
|
Difference between the greatest primitive root and the least primitive root of the n-th prime. |
|
+0
1
|
|
| 0, 1, 2, 6, 9, 11, 13, 16, 25, 21, 33, 29, 31, 40, 49, 54, 57, 61, 62, 63, 74, 78, 83, 87, 97, 96, 102, 97, 107, 115, 126, 131, 133, 145, 140, 147, 157, 160, 169, 174, 177, 170, 183, 193, 194, 205, 211, 222, 217, 227, 230, 227, 242, 251, 256, 265, 263, 267, 275, 274
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Where a(n+1) < a(n): 11, 13, 27, 29, 36, 43, 50, 53, 58, 61, 64, 68, 80, 85, 88, 110, 117, 124, 135, 136, ....
|
|
FORMULA
|
A071894(n) - A001918(n).
|
|
MATHEMATICA
|
ListPrimitiveRoots[n_] := Block[{c = 2, i = Range[n - 1], lst = {}}, While[c < n, If[ Length@ Union@ PowerMod[c, i, n] == n - 1, AppendTo[lst, c]]; c++ ]; lst]; f[n_] := Block[{p = Prime[n + 1], lst}, lst = ListPrimitiveRoots@ p; lst[[ -1]] - lst[[1]]]; Array[f, 61]
|
|
CROSSREFS
|
Cf. A001918, A071894.
Sequence in context: A071814 A066586 A133160 this_sequence A139639 A045038 A026348
Adjacent sequences: A128903 A128904 A128905 this_sequence A128907 A128908 A128909
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 21 2007
|
|
|
Search completed in 0.002 seconds
|
