|
|
A163851
|
|
Primes of the form Fibonacci(k)-2.
|
|
6
|
|
|
3, 11, 19, 53, 6763, 354224848179261915073, 6356306993006846248181, 6549923758702735390139183573072808204317151158828986996794832713116199613609647330495585293499629115294769, 131000268055609921839337880403168874871518195097038587116150308718344497444830568622793920406537331453336153249817445002421
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Contains the numbers A000045(k)-2 for k = 5, 7, 8, 10, 20, 100, 106, 508, 586, ...
which equal A000040(j) for j = 2, 5, 8, 16, 871,...
|
|
LINKS
|
|
|
MATHEMATICA
|
Clear[lst, a, f, n, p]; a=2; lst={}; Do[f=Fibonacci[n]; If[PrimeQ[p=f-a]&&p>1, AppendTo[lst, p]], {n, 3*6!}]; lst
Select[Fibonacci[Range[4, 1000]]-2, PrimeQ] (* Harvey P. Dale, Jan 12 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Indices into Fibonacci and prime sequences added by R. J. Mathar, Aug 18 2009
|
|
STATUS
|
approved
|
|
|
|