|
Search: id:A096640
|
|
|
| A096640 |
|
Smallest prime p == 7 mod 8 (A007521) whose least prime quadratic non-residue is the n-th prime. |
|
+0
1
|
|
| 23, 7, 31, 79, 631, 751, 2311, 21319, 48799, 82471, 256279, 78439, 1768831, 1365079, 2631511, 1427911, 4355311, 5715319, 49196359, 117678031, 180628639, 475477759, 452980999
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
MATHEMATICA
|
f[n_] := Block[{k = 2}, While[ JacobiSymbol[n, Prime[k]] == 1, k++ ]; Prime[k]]; t = Table[0, {50}]; Do[p = Prime[n]; If[Mod[p, 8] == 7, a = f[p]; If[ t[[ PrimePi[a]]] == 0, t[[ PrimePi[a]]] = p; Print[ PrimePi[a], " = ", p]]], {n, 10^9}]; t
|
|
CROSSREFS
|
Cf. A096635.
Sequence in context: A040511 A058287 A122706 this_sequence A040510 A134910 A013360
Adjacent sequences: A096637 A096638 A096639 this_sequence A096641 A096642 A096643
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 24 2004
|
|
|
Search completed in 0.002 seconds
|
