|
Search: id:A096636
|
|
|
| A096636 |
|
Smallest prime p (A000040) whose least prime quadratic non-residue is the n-th prime. |
|
+0
2
|
|
| 5, 7, 19, 79, 331, 751, 1171, 7459, 10651, 18379, 90931, 78439, 399499, 644869, 2631511, 1427911, 4355311, 5715319, 49196359, 43030381, 163384621, 249623581, 452980999, 1272463669, 505313251
(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]; a = f[p]; If[ t[[ PrimePi[a]]] == 0, t[[ PrimePi[a]]] = p; Print[ PrimePi[a], " = ", p]], {n, 10^9}]
|
|
CROSSREFS
|
Cf. A094929.
Adjacent sequences: A096633 A096634 A096635 this_sequence A096637 A096638 A096639
Sequence in context: A084198 A079361 A045447 this_sequence A101588 A062654 A130729
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 24 2004
|
|
|
Search completed in 0.002 seconds
|
