Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 5000 articles have referenced us, often saying "we discovered this result with the help of 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.