A006971: Missing Euler-Jacobi Pseudoprimes?

[David W. Wilson]

Eric W. Weisstein wrote:

> All,
>
> Am I out to lunch, or is A006971 missing 3277, 29341, and 49141?
> According to Mathematica, each of these satisfies
>
> Mod[2^((n-1)/2)-JacobiSymbol[2,n],n] == 0
>
> (as well as !PrimeQ[n]).
>
> Cheers,
> -Eric

You are precisely correct.  I get

561 1105 1729 1905 2047 2465 3277 4033 4681 6601 8321 8481 10585 12801
15841 16705 18705 25761 29341 30121 33153 34945 41041 42799 46657 49141
52633 62745 65281 74665 75361 80581 85489 87249 88357 90751 104653