A048950 Base-3 Euler-Jacobi pseudoprimes.

121, 703, 1729, 1891, 2821, 3281, 7381, 8401, 8911, 10585, 12403, 15457, 15841, 16531, 18721, 19345, 23521, 24661, 28009, 29341, 31621, 41041, 44287, 46657, 47197, 49141, 50881, 52633, 55969, 63139, 63973, 74593, 75361, 79003, 82513

Offset

1,1

Comments

Odd composite k with gcd(k,3) = 1 and 3^((k-1)/2) == (3,k) (mod k) where (.,.) is the Jacobi symbol. - R. J. Mathar, Jul 15 2012

The base 5 Euler-Jacobi pseudoprimes are 781, 1541, 1729, 5461, 5611, 6601, 7449, ... - R. J. Mathar, Jul 15 2012 [Typo fixed; this is A375914. - Jianing Song, Sep 02 2024]

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

A. Rotkiewicz, On Euler Lehmer pseudoprimes and strong Lehmer pseudoprimes with Parameters L, Q in arithmetic progressions, Math. Comp 39 (159) (1982) 239-247.

Eric Weisstein's World of Mathematics, Euler-Jacobi Pseudoprime.

Index entries for sequences related to pseudoprimes

Mathematica

Select[Range[1, 10^5, 2], GCD[#, 3] == 1 && CompositeQ[#] && PowerMod[3, (# - 1)/2, #] == Mod[JacobiSymbol[3, #], #] &] (* Amiram Eldar, Jun 28 2019 *)

Prog

(PARI) is(n) = n%2==1 && gcd(n, 3)==1 && Mod(3, n)^((n-1)/2)==kronecker(3, n)
forcomposite(c=1, 83000, if(is(c), print1(c, ", "))) \\ Felix Fröhlich, Jul 15 2019

Crossrefs

Cf. A005935.

For a list of sequences related to Euler-Jacobi pseudoprimes and Euler pseudoprimes, see A306310.

Sequence in context: A036306 A014749 A262051 * A329705 A020229 A141350

Adjacent sequences: A048947 A048948 A048949 * A048951 A048952 A048953

Keyword

nonn

Author

Eric W. Weisstein

Status

approved