A083702 Smallest number having Fibonacci(n) as least primitive root, or 0 if no such number exists.

2, 2, 3, 4, 6, 0, 457, 362, 48889, 108362, 3418682

Offset

1,1

Links

Table of n, a(n) for n=1..11.

Formula

a(n) = A214158(A000045(n)). - Jianing Song, Oct 31 2018

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

Cf. A083701, A214158.

Sequence in context: A205006 A123560 A060407 * A074077 A078381 A118975

Adjacent sequences: A083699 A083700 A083701 * A083703 A083704 A083705

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