|
Search: id:A023148
|
|
|
| A023148 |
|
Numbers n such that prime(n) == 6 (mod n). |
|
+0
12
|
|
| 79, 445, 16055, 27067045, 1208198549, 1208198609, 1208198615
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == 6, Print[n]], {n, 1, 10^9}] (from Robert G. Wilson v Feb 18 2004)
|
|
CROSSREFS
|
Cf. A092048, A023143, A023144, A023145, A023146, A023147, A023149, A023150, A023151, A023152.
Sequence in context: A142556 A023315 A142618 this_sequence A107954 A098673 A056211
Adjacent sequences: A023145 A023146 A023147 this_sequence A023149 A023150 A023151
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
David W. Wilson (davidwwilson(AT)comcast.net)
|
|
EXTENSIONS
|
Extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 18 2004
a(5)-a(7) from Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 22 2006
|
|
|
Search completed in 0.002 seconds
|
