A133860 Smallest odd prime base q such that p^10 divides q^(p-1) - 1, where p = prime(n).

12289, 472391, 78124999, 135967277, 24262286441, 38050596989, 5498076927457, 8388044818849, 30794280412669, 45941644105613, 1205285836084793, 7909086479714171, 1438991183761177, 47101607991825047, 18067554193458689

Offset

1,1

Links

Table of n, a(n) for n=1..15.

Example

a(1) = A035089(10) = 12289.

Mathematica

Do[ k = 1; While[ !PowerMod[ Prime[ k ], Prime[ n ] - 1, Prime[ n ]^10 ] == 1, k++ ]; Print[ { n, Prime[ k ] } ], {n, 1, 100} ]

Crossrefs

Cf. A035089, A125609, A125610, A125611, A125612, A125632, A125633, A125634, A125635, A125636, A125637, A125645, A125646, A125647, A125648, A125649, A133859, A133861, A133862, A133863, A133864, A133865.

Sequence in context: A137489 A233900 A172488 * A133861 A133862 A205624

Adjacent sequences: A133857 A133858 A133859 * A133861 A133862 A133863

Keyword

nonn

Author

Alexander Adamchuk, Sep 26 2007

Extensions

Extended by Max Alekseyev, May 08 2009

Status

approved