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

7681, 39367, 7812499, 135967277, 4715895383, 822557039, 48718117843, 513127081109, 147534349327, 21203414421907, 52879244321341, 15069267560119, 798099274499279, 164129642266943, 1740228634955257, 149381307185023

Offset

1,1

Links

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

Example

a(1) = A035089(9) = 7681.
a(2) = A125609(9) = 39367.
a(3) = A125610(9) = 7812499.

Mathematica

Do[ k = 1; While[ !PowerMod[ Prime[ k ], Prime[ n ] - 1, Prime[ n ]^9 ] == 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, A133860, A133861, A133862, A133863, A133864, A133865.

Sequence in context: A076339 A105132 A162141 * A012082 A184026 A035907

Adjacent sequences: A133856 A133857 A133858 * A133860 A133861 A133862

Keyword

nonn

Author

Alexander Adamchuk, Sep 26 2007

Extensions

Extended by Max Alekseyev, May 08 2009

Status

approved