%I A056217
%S A056217 37,613,733,1597,2677,3037,4957,5197,5641,7129,7333,7573,8521,8677,
%T A056217 11317,14281,14293,15289,15373,16249,17053,17293,17317,19441,20161,
%U A056217 21397,21613,21997,23053,23197,24133,25357,25717,26053,26293,27277
%N A056217 Primes p for which the period of reciprocal 1/p is (p-1)/12.
%C A056217 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.
%H A056217 <a href="Sindx_1.html#1overn">Index entries for sequences related to 
               decimal expansion of 1/n</a>
%t A056217 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 &]
%Y A056217 Sequence in context: A006303 A156226 A133998 this_sequence A105464 A140764 
               A156923
%Y A056217 Adjacent sequences: A056214 A056215 A056216 this_sequence A056218 A056219 
               A056220
%K A056217 nonn
%O A056217 1,1
%A A056217 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 02 2000