A103335 Numbers whose smallest primitive root (A046145) is not prime.

1, 2, 41, 109, 151, 229, 251, 271, 313, 337, 362, 367, 409, 439, 542, 626, 674, 733, 761, 818, 878, 971, 991, 1021, 1031, 1069, 1289, 1297, 1303, 1429, 1471, 1489, 1681, 1759, 1783, 1789, 1811, 1871, 1873, 1879, 2062, 2137, 2342, 2411, 2441, 2551, 2594

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Primitive Root.

Maple

filter:= proc(n)
  local r;
  r:= numtheory:-primroot(n);
  r <> FAIL and not isprime(r)
end proc:
filter(1):= true:
select(filter, [$1..3000]); Robert Israel, Sep 08 2020

Mathematica

L = {}; Do[ If[!PrimeQ[ Min[ Select[ Range[n], CoprimeQ[#, n] && MultiplicativeOrder[#, n] == CarmichaelLambda[n] &]]],
L = Append[L, n]], {n, 1, 3000}]; L (* Jonathan Sondow, May 17 2017 *)

Crossrefs

Cf. A001918, A046144, A046145, A046146, A103309, A103310, A103336, A103337, A103338.

Sequence in context: A285792 A073468 A073186 * A047936 A007533 A088565

Adjacent sequences: A103332 A103333 A103334 * A103336 A103337 A103338

Keyword

nonn

Author

Harry J. Smith, Jan 31 2005

Extensions

Offset changed by Robert Israel, Sep 08 2020

Status

approved