|
Search: id:A015975
|
|
|
| A015975 |
|
First k>n, not a power of n+1 or one of its prime factors, such that k | n^k + 1. |
|
+0
1
|
|
| 171, 10, 205, 21, 203, 10, 57, 82, 253, 111, 1027, 34, 45, 226, 6029713, 21, 7558979, 55, 63, 26, 1081, 39, 55, 626, 63, 50, 1172383, 45, 126883, 74, 99, 50, 175, 1191, 164317, 50, 63, 55, 104263, 58, 44419, 50, 75, 1081, 30973, 50, 34591207, 1405, 57
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
EXAMPLE
|
a(3) = 10 because 3^10 + 1 = 59050 which is divisible by 10 and ten is not a power of 3+1 or 4.
|
|
MATHEMATICA
|
Do[ k = n + 2; f = Transpose[ FactorInteger[ n + 1 ] ] [ [ 1 ] ]; l = Length[ f ]; While[ PowerMod[ n, k, k ] != k - 1 || Union[ Table[ IntegerQ[ Log[ f[ [ m ] ], k ] ], {m, 1, l} ] ] != {False}, k++ ]; Print[ k ], {n, 2, 47} ]
|
|
CROSSREFS
|
Sequence in context: A133328 A098244 A114048 this_sequence A045149 A031511 A101273
Adjacent sequences: A015972 A015973 A015974 this_sequence A015976 A015977 A015978
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com)
|
|
|
Search completed in 0.002 seconds
|
