OFFSET
1,1
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Primitive Root
EXAMPLE
12769 = 113^2 belongs to this sequence because 113 is in A007349.
MATHEMATICA
lst = {}; r = 912673; Do[If[PrimeQ[i] && MultiplicativeOrder[10, i] == MultiplicativeOrder[-10, i] == i - 1, n = 2; While[(p = i^n) <= r, AppendTo[lst, p]; n++]], {i, Floor@Sqrt[r]}]; Sort[lst]
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Nov 05 2012
STATUS
approved