OFFSET
1,1
FORMULA
EXAMPLE
a(8) = 362 because 362 is the first number having Fibonacci(8) = 21 as least primitive root.
MATHEMATICA
<< NumberTheory`NumberTheoryFunctions`; a = Table[ Fibonacci[i], {i, 2, 20}]; b = Table[0, {20}]; k = 1; Do[j = FromDigits[ Flatten[ Position[ a, PrimitiveRoot[n]]]]; If[ b[[j]] == 0, b[[j]] = n], {n, 2, 10^6}]; b
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Sven Simon, May 04 2003
EXTENSIONS
Offset 1 from Michel Marcus, Oct 30 2018
a(4) corrected by Jianing Song, Oct 31 2018
STATUS
approved