A227880 Primes in the union of all n-Fibonacci sequences.

2, 3, 5, 7, 13, 29, 31, 61, 89, 127, 149, 233, 401, 509, 773, 1021, 1597, 4093, 8191, 16381, 28657, 31489, 128257, 131071, 514229, 524287, 1048573, 4194301, 5976577, 16777213, 433494437, 536870909, 2147483647, 2971215073, 4293722117, 5350220959, 13435170943

Offset

1,1

Links

T. D. Noe, Table of n, a(n) for n = 1..127 (first 62 terms from Robert Price)

Tony D. Noe and Jonathan Vos Post, Primes in Fibonacci n-step and Lucas n-step Sequences, J. of Integer Sequences, Vol. 8 (2005), Article 05.4.4

Formula

Primes in A124168.

Mathematica

plst = {}; plimit=10^39; For[n = 2, n ≤ 1 + Log[2, plimit], n++, flst = {}; For[i = 1, i < n, i++, AppendTo[flst, 0]]; AppendTo[flst, 1]; For[k = 2, k ≤ 1 + Log[GoldenRatio, plimit*Sqrt[5] + 0.5], k++, sum = 0; For[j = 0, j < n, j++, sum = sum + flst[[j + k - 1]]]; AppendTo[flst, sum]; If[sum ≤ plimit && PrimeQ[sum], AppendTo[plst, sum]]]]; Union[plst]

Crossrefs

Cf. A124168, A000045, A000073, A000078, A001591, A001592, A124257.

Sequence in context: A270391 A172508 A272107 * A167134 A071905 A306317

Adjacent sequences: A227877 A227878 A227879 * A227881 A227882 A227883

Keyword

nonn

Author

Robert Price, Oct 25 2013

Status

approved