OFFSET
0,1
REFERENCES
S. Burris and J. Lawrence, Term rewrite rules for finite fields, Internat. J. Algebra and Computation, 1 (1991), 353-369.
EXAMPLE
22 is a member since 2^2-1 and 2^3-1 divide 22-1 but 2^6-1 does not.
MATHEMATICA
Select[ Range[ 2, 1000 ], Function[ m, Module[ {k}, Length[ k=Flatten[ Select[ Map[ FactorInteger, 1+Divisors[ m-1 ] ], Length[ #1 ]==1&[ [ 1, 2 ] ]>1& ], 1 ] ]>1&&Length[ Select[ Map[ Function[ p, {p, Last[ Transpose[ Select[ k, #1[ [ 1 ] ]==p& ] ] ]} ], Union[ First[ Transpose[ k ] ] ] ], Length[ #1[ [ 2 ] ] ]>1&&!MemberQ[ #1[ [ 2 ] ], LCM@@#1[ [ 2 ] ] ]& ] ]>0 ] ] ] (* Olivier Gérard *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Bill Dubuque (wgd(AT)martigny.ai.mit.edu)
STATUS
approved