A133859
Smallest odd prime base q such that p^9 divides q^(p-1) - 1, where p = prime(n).
Original entry on oeis.org
7681, 39367, 7812499, 135967277, 4715895383, 822557039, 48718117843, 513127081109, 147534349327, 21203414421907, 52879244321341, 15069267560119, 798099274499279, 164129642266943, 1740228634955257, 149381307185023
Offset: 1
a(1) = A035089(9) = 7681.
a(2) = A125609(9) = 39367.
a(3) = A125610(9) = 7812499.
Cf.
A035089,
A125609,
A125610,
A125611,
A125612,
A125632,
A125633,
A125634,
A125635,
A125636,
A125637,
A125645,
A125646,
A125647,
A125648,
A125649,
A133860,
A133861,
A133862,
A133863,
A133864,
A133865.
-
Do[ k = 1; While[ !PowerMod[ Prime[ k ], Prime[ n ] - 1, Prime[ n ]^9 ] == 1, k++ ]; Print[ { n, Prime[ k ] } ], {n, 1, 100} ]
A133860
Smallest odd prime base q such that p^10 divides q^(p-1) - 1, where p = prime(n).
Original entry on oeis.org
12289, 472391, 78124999, 135967277, 24262286441, 38050596989, 5498076927457, 8388044818849, 30794280412669, 45941644105613, 1205285836084793, 7909086479714171, 1438991183761177, 47101607991825047, 18067554193458689
Offset: 1
a(1) = A035089(10) = 12289.
Cf.
A035089,
A125609,
A125610,
A125611,
A125612,
A125632,
A125633,
A125634,
A125635,
A125636,
A125637,
A125645,
A125646,
A125647,
A125648,
A125649,
A133859,
A133861,
A133862,
A133863,
A133864,
A133865.
-
Do[ k = 1; While[ !PowerMod[ Prime[ k ], Prime[ n ] - 1, Prime[ n ]^10 ] == 1, k++ ]; Print[ { n, Prime[ k ] } ], {n, 1, 100} ]
A133861
Smallest odd prime base q such that p^11 divides q^(p-1) - 1, where p = prime(n).
Original entry on oeis.org
12289, 1062881, 292968749, 7909306973, 1194631280321, 2395794301259, 38413406256881, 77460384757423, 30794280412669, 4161130688896397, 3748333074529501, 240404931594746129, 191828075390557213
Offset: 1
a(1) = A035089(11) = 12289.
Cf.
A035089,
A125609,
A125610,
A125611,
A125612,
A125632,
A125633,
A125634,
A125635,
A125636,
A125637,
A125645,
A125646,
A125647,
A125648,
A125649,
A133859,
A133860,
A133862,
A133863,
A133864,
A133865.
-
Do[ k = 1; While[ !PowerMod[ Prime[ k ], Prime[ n ] - 1, Prime[ n ]^11 ] == 1, k++ ]; Print[ { n, Prime[ k ] } ], {n, 1, 100} ]
A133862
Smallest odd prime base q such that p^12 divides q^(p-1) - 1, where p = prime(n).
Original entry on oeis.org
12289, 1062881, 853235443, 92233439147, 3143820659087, 58713568184837, 2359162908109223, 2649283656602003, 53928980532177631, 557792163777408809, 2084452633098194627, 8958368398788306367, 15810453676175767201
Offset: 1
a(1) = A035089(12) = 12289.
Cf.
A035089,
A125609,
A125610,
A125611,
A125612,
A125632,
A125633,
A125634,
A125635,
A125636,
A125637,
A125645,
A125646,
A125647,
A125648,
A125649,
A133859,
A133860,
A133861,
A133863,
A133864,
A133865.
-
Do[ k = 1; While[ !PowerMod[ Prime[ k ], Prime[ n ] - 1, Prime[ n ]^12 ] == 1, k++ ]; Print[ { n, Prime[ k ] } ], {n, 1, 100} ]
A133864
Smallest odd prime base q such that p^14 divides q^(p-1) - 1, where p = prime(n).
Original entry on oeis.org
65537, 19131877, 53834264557, 1356446145697, 488581592070877, 22771419458231473, 346100334752156863, 2467410166021233673, 19165875476832528551, 61879867860030528131, 1106827928513014993387
Offset: 1
a(1) = A035089(14) = 65537.
Cf.
A035089,
A125609,
A125610,
A125611,
A125612,
A125632,
A125633,
A125634,
A125635,
A125636,
A125637,
A125645,
A125646,
A125647,
A125648,
A125649,
A133859,
A133860,
A133861,
A133862,
A133863,
A133865.
-
Do[ k = 1; While[ !PowerMod[ Prime[ k ], Prime[ n ] - 1, Prime[ n ]^14 ] == 1, k++ ]; Print[ { n, Prime[ k ] } ], {n, 1, 100} ]
A133865
Smallest odd prime base q such that p^15 divides q^(p-1) - 1, where p = prime(n).
Original entry on oeis.org
65537, 57395627, 122070312499, 56020344873707, 6266190914259137, 65106791321062951, 12132548193910221893, 50407811312994280933, 172048888780798211059, 16668261908754510204233, 35965174106571679882189
Offset: 1
a(1) = A035089(15) = 65537.
Cf.
A035089,
A125609,
A125610,
A125611,
A125612,
A125632,
A125633,
A125634,
A125635,
A125636,
A125637,
A125645,
A125646,
A125647,
A125648,
A125649,
A133859,
A133860,
A133861,
A133862,
A133863,
A133864.
-
Do[ k = 1; While[ !PowerMod[ Prime[ k ], Prime[ n ] - 1, Prime[ n ]^15 ] == 1, k++ ]; Print[ { n, Prime[ k ] } ], {n, 1, 100} ]
Showing 1-6 of 6 results.