|
| |
|
|
A098680
|
|
Primes p for which the period of reciprocal = (p-1)/13.
|
|
6
| |
|
|
2393, 15497, 18149, 18617, 20021, 25819, 26183, 26339, 29303, 39937, 42953, 48491, 52313, 53327, 57331, 58189, 59021, 65183, 81953, 82499, 87491, 91703, 98047, 102233, 104287, 109097, 111229, 119419, 129793, 131171, 143287, 143833, 162007
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Index entries for sequences related to decimal expansion of 1/n
|
|
|
MATHEMATICA
| f[n_Integer] := Block[{ds = Divisors[n - 1]}, (n - 1)/Take[ ds, Position[ PowerMod[ 10, ds, n], 1] [[1, 1]]] [[ -1]]]; Select[ Prime[ Range[4, 15000]], f[ # ] == 13 &]
|
|
|
CROSSREFS
| Sequence in context: A172752 A020428 A100974 * A115931 A108055 A204357
Adjacent sequences: A098677 A098678 A098679 * A098681 A098682 A098683
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 15 2004
|
| |
|
|
