|
| |
|
|
A025476
|
|
Prime root of n-th nontrivial prime power (A025475).
|
|
2
| |
|
|
2, 2, 3, 2, 5, 3, 2, 7, 2, 3, 11, 5, 2, 13, 3, 2, 17, 7, 19, 2, 23, 5, 3, 29, 31, 2, 11, 37, 41, 43, 2, 3, 13, 47, 7, 53, 5, 59, 61, 2, 67, 17, 71, 73, 79, 3, 19, 83, 89, 2, 97, 101, 103, 107, 109, 23, 113, 11, 5, 127, 2, 7, 131, 137, 139, 3, 149, 151, 29, 157, 163, 167, 13, 31, 173, 179
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MAPLE
| cvm := proc(n, level) local f, opf; if n < 2 then RETURN() fi;
f := ifactors(n); opf := op(1, op(2, f)); if nops(op(2, f)) > 1 or
op(2, opf) <= level then RETURN() fi; op(1, opf) end:
A025476_list := n -> seq(cvm(i, 1), i=1..n); # n is search limit
A025476_list(30000); # Peter Luschny, Sep 21 2011
|
|
|
MATHEMATICA
| Transpose[ Flatten[ FactorInteger[ Select[ Range[2, 30000], !PrimeQ[ # ] && Mod[ #, # - EulerPhi[ # ]] == 0 &]], 1]][[1]] (from Robert G. Wilson v)
|
|
|
CROSSREFS
| Cf. A025473.
Sequence in context: A157987 A025478 A084371 * A078773 A151663 A162753
Adjacent sequences: A025473 A025474 A025475 * A025477 A025478 A025479
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net)
|
| |
|
|
