OFFSET
1,1
COMMENTS
a(10^n): 2,41,1229,16693,220721,2734801,32393839,..., .
Conjecture: Lim_n->Inf a(n)/A097144(n) = 1 <==> a(P_2n).
LINKS
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]]; Table[ a[n], {n, 20}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 26 2004
STATUS
approved