|
|
A134313
|
|
Numbers n such that n * Fibonacci(n) + 1 is prime.
|
|
4
|
|
|
1, 2, 3, 4, 9, 14, 15, 20, 24, 28, 30, 48, 54, 63, 108, 110, 116, 130, 148, 180, 189, 268, 315, 345, 394, 520, 528, 640, 808, 1070, 1112, 1590, 1744, 2530, 3630, 5640, 5778, 5938, 6795, 18160, 18858, 22444, 52160, 54621
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Some of the larger entries may only correspond to probable primes.
|
|
LINKS
|
|
|
MATHEMATICA
|
Transpose[Select[Table[{n, Fibonacci[n]}, {n, 7000}], PrimeQ[Times@@#+1]&]] [[1]] (* Harvey P. Dale, Jul 28 2013 *)
|
|
PROG
|
(Magma) [n: n in [1..2000]| IsPrime(1+n*Fibonacci(n))]; // Vincenzo Librandi, Nov 02 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|