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
KEYWORD
nonn
AUTHOR
Robert Price, Oct 25 2013
STATUS
approved