The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A103335 Numbers whose smallest primitive root (A046145) is not prime. 5
 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 (list; graph; refs; listen; history; text; internal format)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 29 22:15 EDT 2023. Contains 361599 sequences. (Running on oeis4.)