OFFSET
1,1
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..520
MATHEMATICA
p = 2; t = Table[0, {100}]; While[p < 3000000001, a = MultiplicativeOrder[5, p]; If[0 < a < 101 && t[[a]] == 0, t[[a]] = p]; p = NextPrime@ p]; t (* Robert G. Wilson v, Oct 13 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Aug 28 2008
EXTENSIONS
a(23)-a(40) from Robert G. Wilson v, Oct 13 2014
a(41)-a(46) from Robert G. Wilson v, Oct 15 2014
STATUS
approved