login
Numbers n such that Fibonacci(n) divides p! where p is n-th prime.
2

%I #9 Apr 04 2016 23:21:19

%S 1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,24,30,36

%N Numbers n such that Fibonacci(n) divides p! where p is n-th prime.

%C Inspired by A019532.

%C A019532 is a subsequence.

%e 5 is a term because Fibonacci(5) = 5 divides prime(5)! = 11! = 39916800.

%p with(combinat): A271168:=n->`if`(ithprime(n)! mod fibonacci(n)=0, n, NULL): seq(A271168(n), n=1..40); # _Wesley Ivan Hurt_, Apr 01 2016

%t Select[Range@ 40, Divisible[Prime[#]!, Fibonacci@ #] &] (* _Michael De Vlieger_, Apr 01 2016 *)

%o (PARI) for(n=1, 1e2, if(prime(n)! % fibonacci(n) == 0, print1(n, ", ")));

%Y Cf. A019532.

%K nonn,fini,full

%O 1,2

%A _Altug Alkan_, Mar 31 2016