A218167 a(n) is the smallest positive integer k such that k^512 + 1 == 0 mod p(n) where p(n) are the n-th prime of the form 1 + 1024*b.

49, 7, 84, 159, 5, 31, 95, 143, 40, 35, 29, 9, 21, 156, 431, 53, 231, 230, 6, 329, 82, 30, 223, 45, 181, 275, 206, 454, 1130, 204, 216, 38, 245, 34, 71, 1080, 561, 338, 181, 119, 238, 525, 333, 95, 431, 855, 367, 430, 554, 50, 1331, 175, 16, 728, 939, 692, 889

Offset

1,1

Links

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

Mathematica

aa = {}; Do[p = Prime[n]; If[Mod[p, 1024] == 1, k = 1; While[ ! Mod[k^512 + 1, p] == 0, k++ ]; AppendTo[aa, k]], {n, 40000}]; aa

Crossrefs

Sequence in context: A254617 A012120 A278107 * A145583 A304139 A305045

Adjacent sequences: A218164 A218165 A218166 * A218168 A218169 A218170

Keyword

nonn

Author

Michel Lagneau, Oct 22 2012

Status

approved