A125648 Smallest odd prime base q such that p^7 divides q^(p-1) - 1, where p = Prime[n].
257, 4373, 735443, 3294173, 28723679, 533810141, 38277341, 47579927, 982740799, 33956348611, 77141582851, 174329354539, 82984891817, 109051450427, 83209719751, 1352085061013, 171168499897, 1822904926391, 2870322429133, 3589197993463, 2603594622571, 5834621843669, 1411025860033, 20635686238253, 1580041060459, 26763849212297, 8216934406781, 28482190726739, 97876187600351
Offset: 1
Keywords
Links
- W. Keller and J. Richstein Fermat quotients that are divisible by p.
Crossrefs
Programs
-
PARI
{ a125648(n) = my(p, x, r); if(n==1, return(257)); p=prime(n); x=znprimroot(p^7)^(p^6); vecmin( vector(p-1, i, forprimestep(y=2,oo,x^i,r=y;break); r) ); } \\ Max Alekseyev, May 30 2007; updated Apr 01 2025
Extensions
More terms from Max Alekseyev, May 30 2007