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 A083019 #19 Jun 09 2022 06:32:19
%S A083019 1,1,1,1,2,2,1,1,1,2,1,6,1,1,2,1,1,2,1,2,1,1,1,8,3,1,1,1,1,4,1,1,1,1,
%T A083019 2,9,1,1,1,2,1,2,1,1,2,1,1,10,1,3,1,1,1,2,2,2,1,1,1,12,1,1,1,1,2,2,1,
%U A083019 1,1,2,1,12,1,1,3,1,1,2,1,2,1,1,1,6,2,1,1,1,1,4,2,1,1,1,2,12,1,1,1,3,1,2,1
%N A083019 Number of common divisors of n and F(n) where F(n) denotes the n-th Fibonacci number.
%H A083019 Amiram Eldar, <a href="/A083019/b083019.txt">Table of n, a(n) for n = 1..10000</a>
%F A083019 a(n) = A000005(A104714(n)). - _Amiram Eldar_, Jun 09 2022
%t A083019 Table[Length[Intersection[Divisors[n],Divisors[Fibonacci[n]]]],{n,120}] (* _Harvey P. Dale_, Aug 24 2014 *)
%t A083019 a[n_] := DivisorSigma[0, GCD[n, Fibonacci[n]]]; Array[a, 100] (* _Amiram Eldar_, Oct 18 2019 *)
%o A083019 (PARI) a(n) = length(setintersect(divisors(n), divisors(fibonacci(n)))); \\ _Michel Marcus_, Dec 04 2013
%Y A083019 Cf. A000005, A000045, A104714.
%K A083019 nonn,easy
%O A083019 1,5
%A A083019 _Benoit Cloitre_, May 31 2003