A121169 Largest prime divisor of Fibonacci(100*n).

570601, 5738108801, 87129547172401, 3160438834174817356001, 158414167964045700001, 87129547172401, 7358192362316341243805801, 7601587101128729489773008667804801, 427694148584338087778220001

Offset

1,1

Comments

Most prime divisors of Fibonacci(100*n) are congruent to 1 mod 10 (final digit is 1). It appears that a(n) == 1 (mod 100) for all n.

Links

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

Formula

a(n) = A060385(100*n).

Example

a(1) = 570601 because F(100) = 3 * 5^2 * 11 * 41 * 101 * 151 * 401 * 3001 * 570601.
a(10) = 9372625568572722938847095612481183137496995522804466421273200001 because F(1000)= 3 * 5^3 * 7 * 11 * 41 * 101 * 151 * 251 * 401 * 2161 * 3001 * 4001 * 570601 * 9125201 * 112128001 * 1353439001 * 5738108801 * 28143378001 * 5465167948001 * 10496059430146001 * 84817574770589638001 * 158414167964045700001 * 9372625568572722938847095612481183137496995522804466421273200001.

Mathematica

Table[Max[Flatten[FactorInteger[Fibonacci[100n]]]], {n, 10}]

Prog

(PARI) a(n) = my(f=factor(fibonacci(100*n))[, 1]); f[#f]; \\ Jinyuan Wang, Mar 17 2020

Crossrefs

Cf. A000045, A060385.

Sequence in context: A068724 A233651 A288085 * A237173 A090061 A146947

Adjacent sequences: A121166 A121167 A121168 * A121170 A121171 A121172

Keyword

nonn

Author

Alexander Adamchuk, Aug 14 2006

Status

approved