cp's OEIS Frontend

A247193 a(n) = gcd(n!, Fibonacci(n)).

%I A247193 #28 Jun 16 2018 16:13:07
%S A247193 1,1,2,3,5,8,1,21,2,5,1,144,1,13,10,21,1,136,1,165,26,1,1,46368,25,1,
%T A247193 34,39,1,440,1,21,2,1,65,139536,1,37,2,1155,1,3016,1,129,170,1,1,
%U A247193 4358592,13,275,2,3,1,136952,5,55419,74,1,1,10066320,1,1,442,987,5,8,1,201,2,20735,1,44930592,1,73,3050,111,13,8,1,2225685
%N A247193 a(n) = gcd(n!, Fibonacci(n)).
%H A247193 Ivan Neretin, <a href="/A247193/b247193.txt">Table of n, a(n) for n = 1..10000</a>
%F A247193 a(n) = gcd(n!, Fibonacci(n)).
%F A247193 a(A069180(n)) == 1. - _Michel Marcus_, Nov 25 2014
%e A247193 For n = 8: GCD(8!, Fibonacci(8)) = 21.
%p A247193 seq(igcd(n!, combinat:-fibonacci(n)), n=1..100); # _Robert Israel_, Nov 24 2014
%t A247193 a[n_] := GCD[n!, Fibonacci[n]];
%t A247193 Table[a[n], {n, 1, 300}]
%o A247193 (PARI) vector(100,n,gcd(n!,fibonacci(n))) \\ _Derek Orr_, Nov 24 2014
%Y A247193 Cf. A000045, A000142, A250445, A069180.
%K A247193 nonn,easy
%O A247193 1,3
%A A247193 _Carlos Eduardo Olivieri_, Nov 24 2014