%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