|
| |
|
|
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
|
| |
|
|
