|
|
A227829
|
|
Primes occurring in the Fibonacci sequences 2, 3, 5, ...; 5, 12, 29, ...; 10, 33, 109, ...; 17, 72, 305, ...; ..., where F(n) = m*F(n-1) + F(n-2) (n>2), with F(1) = 1, F(2) = positive integer m.
|
|
1
|
|
|
2, 3, 5, 13, 17, 29, 37, 89, 101, 109, 197, 233, 257, 401, 577, 677, 701, 1297, 1597, 1601, 2549, 2917, 3137, 4289, 4357, 5477, 5741, 7057, 8101, 8837, 10301, 12101, 13457, 14401, 15377, 15877, 16901
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
From a posting by Daniel Joyce to the Sequence Fans Mailing List, Jul 19 2013
|
|
LINKS
|
|
|
MATHEMATICA
|
t={}; Do[AppendTo[t, Select[Take[Table[If[n==0, a1=1; a0=0, a2=a1; a1=a0; a0=i*a1+a2], {n, 0, 60}], -58], #<10^12&]], {i, 999999}]; Select[Union[Flatten[t]], PrimeQ[#] &] (* Hans Havermann, Aug 01 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|