This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A083702 #16 Nov 01 2018 12:24:51
%S A083702 2,2,3,4,6,0,457,362,48889,108362,3418682
%N A083702 Smallest number having Fibonacci(n) as least primitive root, or 0 if no such number exists.
%F A083702 a(n) = A214158(A000045(n)). - _Jianing Song_, Oct 31 2018
%e A083702 a(8) = 362 because 362 is the first number having Fibonacci(8) = 21 as least primitive root.
%t A083702 << 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
%Y A083702 Cf. A083701, A214158.
%K A083702 nonn,more
%O A083702 1,1
%A A083702 _Sven Simon_, May 04 2003
%E A083702 Offset 1 from _Michel Marcus_, Oct 30 2018
%E A083702 a(4) corrected by _Jianing Song_, Oct 31 2018