|
|
A161509
|
|
The unique primitive prime factor of 2^n-1 for the n in A161508.
|
|
5
|
|
|
3, 7, 5, 31, 127, 17, 73, 11, 13, 8191, 43, 151, 257, 131071, 19, 524287, 41, 337, 683, 241, 2731, 262657, 331, 2147483647, 65537, 599479, 43691, 174763, 61681, 5419, 2796203, 4432676798593, 87211, 15790321, 2305843009213693951, 715827883
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
For these primes p, the binary expansion of 1/p has a unique period length. The binary analog of A007615.
|
|
LINKS
|
|
|
MATHEMATICA
|
Reap[Do[c=Cyclotomic[n, 2]; q=c/GCD[c, n]; If[PrimePowerQ[q], Sow[FactorInteger[q][[1, 1]]]], {n, 100}]][[2, 1]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|