A095224 Least squarefree Fibonacci number with exactly n prime divisors.
1, 2, 21, 610, 6765, 701408733, 102334155, 190392490709135, 251728825683549488150424261, 23416728348467685, 13598018856492162040239554477268290, 81055900096023504197206408605
Offset: 0
Keywords
Examples
a(5) = 701408733 = 3 * 43 * 89 * 199 * 307.
Links
- Amiram Eldar, Table of n, a(n) for n = 0..24
Crossrefs
Programs
-
Maple
From R. J. Mathar, Oct 14 2010: (Start) A001221 := proc(n) nops(numtheory[factorset](n)) ; end proc: A095224 := proc(n) for i from 1 do f := combinat[fibonacci](i) ; if A001221(f) =n and numtheory[bigomega](f) = n then return f ; fi; od ; end proc: for n from 1 do printf("%d,\n",A095224(n)) ; end do: (End)
-
Mathematica
Table[SelectFirst[{#,PrimeOmega[#]}&/@Select[Fibonacci[Range[200]],SquareFreeQ],#[[2]] == n&],{n,0,11}][[;;,1]] (* Harvey P. Dale, Mar 06 2024 *)
Formula
Extensions
a(9) corrected and 3 terms added by R. J. Mathar, Oct 14 2010
Comments