|
| |
|
|
A133862
|
|
Smallest odd prime base q such that p^12 divides q^(p-1) - 1, where p = Prime[n].
|
|
6
|
|
|
|
12289, 1062881, 853235443, 92233439147, 3143820659087, 58713568184837, 2359162908109223, 2649283656602003, 53928980532177631, 557792163777408809, 2084452633098194627, 8958368398788306367, 15810453676175767201
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..13.
|
|
|
EXAMPLE
|
a(1) = A035089(12) = 12289.
|
|
|
MATHEMATICA
|
Do[ k = 1; While[ !PowerMod[ Prime[ k ], Prime[ n ] - 1, Prime[ n ]^12 ] == 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, A133860, A133861, A133863, A133864, A133865.
Sequence in context: A172488 A133860 A133861 * A205624 A205359 A061745
Adjacent sequences: A133859 A133860 A133861 * A133863 A133864 A133865
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Alexander Adamchuk, Sep 26 2007
|
|
|
EXTENSIONS
|
Extended by Max Alekseyev, May 08 2009
|
|
|
STATUS
|
approved
|
| |
|
|
