Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 4500 articles have referenced us, often saying "we would not have discovered this result without the OEIS".
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Select[Prime[Range], ! JacobiSymbol[78, #] == -1 &] (* Vincenzo Librandi, Sep 08 2012 *)
Sequence in context: A014580 A197227 A091206 * A167609 A117112 A145032
Adjacent sequences: A038960 A038961 A038962 * A038964 A038965 A038966
N. J. A. Sloane.