login
Numbers n such that n * Fibonacci(n) - 1 is prime.
2

%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