|
|
A163856
|
|
Primes of the form Fibonacci(k)-10.
|
|
0
|
|
|
3, 11, 79, 223, 367, 977, 514219, 24157807, 53316291163, 420196140727489663, 573147844013817084091, 48558529144435440119720805669229197631, 538522340430300790495419781092981030523
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Generated by k= 7, 8, 11, 13, 14, 16, 29, 37, 53, 86, 101, 182, 187, 221,...
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Clear[lst, a, f, n, p]; a=10; lst={}; Do[f=Fibonacci[n]; If[PrimeQ[p=f-a]&&p> 1, AppendTo[lst, p]], {n, 3*6!}]; lst
Select[Fibonacci[Range[7, 200]]-10, PrimeQ] (* Harvey P. Dale, Feb 17 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|