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} ]