|
%I #9 Dec 15 2017 17:37:07
%S 3,4,6,8,16,18,24,33,36,94,348,524,644,1218,1458,2064,2960,3591,5744,
%T 13056,27438,35193,43554
%N Numbers n such that n * Fibonacci(n) - 1 is prime.
%C Some of the larger entries may only correspond to probable primes.
%t Select[Range[1,1000],PrimeQ[#*Fibonacci[#]-1]&] (* _Julien Kluge_, Sep 20 2016 *)
%o (PARI) isok(n) = isprime(n*fibonacci(n) - 1); \\ _Michel Marcus_, Sep 20 2016
%Y Cf. A134313.
%K more,nonn
%O 1,1
%A _Jason Earls_, Jan 23 2008
|
