A258249 Lexicographically smallest sequence of primes such that Legendre symbol (a(1)*...*a(n-1) / a(n)) = 1 for all n.

2, 7, 3, 11, 43, 5, 13, 17, 47, 19, 23, 61, 29, 41, 59, 31, 53, 67, 71, 79, 37, 83, 73, 101, 89, 103, 127, 97, 107, 113, 131, 139, 109, 151, 149, 137, 163, 157, 173, 197, 167, 179, 181, 191, 193, 223, 227, 199, 233, 211, 229, 239, 241, 263, 251, 269, 257, 271, 277, 281, 283, 311, 293, 307, 317, 331

Offset: 1

Author

Max Alekseyev, May 24 2015

Keywords

• nonn

Crossrefs

Cf. A167604.

Programs

PARI

{ P=1; for(n=1,100, p=2; while( kronecker(p,P)!=1, p=nextprime(p+1)); print1(p,", "); P*=p) }