OFFSET
1,1
COMMENTS
Cyclic numbers of the eighth degree (or eighth order): the reciprocals of these numbers belong to one of eight different cycles. Each cycle has the (number minus 1)/8 digits.
From Robert Israel, Apr 02 2018: (Start)
All terms == 1 (mod 8). (End)
LINKS
MAPLE
select(t -> isprime(t) and numtheory:-order(10, t) = (t-1)/8, [seq(t, t=17..24000, 8)]); # Robert Israel, Apr 02 2018
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, 2700]], f[ # ] == 8 &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Aug 02 2000
EXTENSIONS
Edited by N. J. A. Sloane, Apr 30 2007
STATUS
approved