|
| |
|
|
A097144
|
|
Primes not appearing in A097143.
|
|
2
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| a(10^n): 3,113,1193,18143,228961,2765969,32509913,.., . Conjecture: Lim_n->Inf A097144(n)/A097143(n) = 1 <==> A097144(P_2n).
|
|
|
LINKS
| E. W. Weinstien, Link to a section of The World of Mathematics..
|
|
|
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: A006483 A177960 A049540 * A176964 A085749 A125957
Adjacent sequences: A097141 A097142 A097143 * A097145 A097146 A097147
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 26 2004
|
| |
|
|
