|
| |
|
|
A116677
|
|
Numbers n such that prime(n) == 12 (mod n).
|
|
4
| | |
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == 12, Print[n]], {n, 10^9}]
|
|
|
CROSSREFS
| Cf. A004648; A023143 - A023152, A116657, A116658, A116659: prime(n) == m (mod n), m=1..14.
Cf. A116678.
Sequence in context: A157802 A119130 A195217 * A031200 A075479 A081222
Adjacent sequences: A116674 A116675 A116676 * A116678 A116679 A116680
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Giovanni Resta (g.resta(AT)iit.cnr.it) and Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 22 2006
|
| |
|
|
