OFFSET
1,1
COMMENTS
Cyclic numbers of the twelfth degree (or twelfth order): the reciprocals of these numbers belong to one of twelve different cycles. Each cycle has the (number minus 1)/12 digits.
Primes p such that the order of 2 mod p is (p-1)/12. - Robert Israel, Dec 08 2017
LINKS
MAPLE
select(p -> isprime(p) and numtheory:-order(10, p) = (p-1)/12, [seq(i, i=13..30000, 12)]); # Robert Israel, Dec 08 2017
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, 3000]], f[ # ] == 12 &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Aug 02 2000
STATUS
approved