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 A271168 #9 Apr 04 2016 23:21:19 %S A271168 1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,24,30,36 %N A271168 Numbers n such that Fibonacci(n) divides p! where p is n-th prime. %C A271168 Inspired by A019532. %C A271168 A019532 is a subsequence. %e A271168 5 is a term because Fibonacci(5) = 5 divides prime(5)! = 11! = 39916800. %p A271168 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 A271168 Select[Range@ 40, Divisible[Prime[#]!, Fibonacci@ #] &] (* _Michael De Vlieger_, Apr 01 2016 *) %o A271168 (PARI) for(n=1, 1e2, if(prime(n)! % fibonacci(n) == 0, print1(n, ", "))); %Y A271168 Cf. A019532. %K A271168 nonn,fini,full %O A271168 1,2 %A A271168 _Altug Alkan_, Mar 31 2016