A097144 Primes not appearing in A097143.

3, 5, 17, 59, 73, 79, 97, 103, 107, 113, 131, 139, 149, 151, 157, 163, 167, 179, 181, 199, 211, 223, 229, 281, 283, 307, 311, 331, 337, 359, 367, 373, 379, 397, 461, 467, 487, 491, 503, 509, 523, 541, 547, 563, 569, 571, 577, 587, 599, 607, 631, 643, 647, 659

Offset

1,1

Comments

a(10^n): 3,113,1193,18143,228961,2765969,32509913,.., .

Conjecture: Lim_n->Inf a(n)/A097143(n) = 1 <==> a(P_2n).

Links

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

Eric Weisstein's World of Mathematics, Quadratic Residue.

Mathematica

a[1] = 2; a[n_] := a[n] = Block[{k = PrimePi[ a[n - 1]] + 1}, While[JacobiSymbol[n, Prime[k]] != 1, k++ ]; Prime[k]]; Complement[ Prime[ Range[ PrimePi[1229]]], Table[ a[n], {n, 100}]]

Crossrefs

Complement of A097143.

Sequence in context: A271659 A357442 A049540 * A219108 A176964 A085749

Adjacent sequences: A097141 A097142 A097143 * A097145 A097146 A097147

Keyword

nonn

Author

Robert G. Wilson v, Jul 26 2004

Status

approved