%I #19 Jun 29 2021 05:54:48
%S 79,547,643,751,907,997,1201,1213,1237,1249,1483,1489,1627,1723,1747,
%T 1831,1879,1987,2053,2551,2683,3049,3253,3319,3613,3919,4159,4507,
%U 4519,4801,4813,4831,4969,5119,5443,5557,5791,6079,6151,6271,6373,6427,6529
%N Primes p whose period of reciprocal equals (p-1)/6.
%C Cyclic numbers of the sixth degree (or sixth order): the reciprocals of these numbers belong to one of six different cycles. Each cycle has the (number minus 1)/6 digits.
%H Amiram Eldar, <a href="/A056211/b056211.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from T. D. Noe)
%H <a href="/index/1#1overn">Index entries for sequences related to decimal expansion of 1/n</a>
%t 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, 850]], f[ # ] == 6 &]
%Y Cf. A001913, A097443, A055628, A056157, A056210, A056212, A056213, A056214, A056215, A056216, A056217, A098680.
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Aug 02 2000
%E Edited by _N. J. A. Sloane_, Apr 30 2007
|