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
KEYWORD
nonn
AUTHOR
Harry J. Smith, Jan 31 2005
EXTENSIONS
Offset changed by Robert Israel, Sep 08 2020
STATUS
approved