OFFSET
1,1
COMMENTS
Supersequence of A037917.
Conjecture: all terms are multiples of 6 or 125. - Harvey P. Dale, Apr 28 2020
The conjecture is false. The counterexamples are 392, 784, 1183, 1210, .... . - Amiram Eldar, Oct 16 2023
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..248
Blair Kelly, Fibonacci factorizations.
FORMULA
EXAMPLE
Fibonacci(125) = 5^3 * 3001 * 158414167964045700001 = A000045(125) is not cubefree, which adds 125 to the sequence.
MATHEMATICA
Select[Range[350], Max[FactorInteger[Fibonacci[#]][[All, 2]]]>2&] (* Harvey P. Dale, Apr 28 2020 *)
PROG
(Haskell)
import Data.List (findIndices)
a175130 n = a175130_list !! (n-1)
a175130_list = map (+ 1) $ findIndices ((== 0) . a212793) $ tail a000045_list
-- Reinhard Zumkeller, May 27 2012
(PARI) is(n)=n>5 && vecmax(factor(fibonacci(n))[, 2])>2 \\ Charles R Greathouse IV, Nov 07 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Feb 16 2010
STATUS
approved