A242572 Indices of primes in A214828.

3, 7, 8, 16, 19, 36, 44, 151, 292, 448, 467, 896, 1148, 1607, 1711, 1956, 2020, 6635, 14228, 25519, 43140, 74984, 77696, 137975

Offset: 1

Author

Robert Price, May 17 2014

Keywords

• nonn
• more

Comments

a(25) > 2*10^5.

Links

• 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

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523,A214825, A235862, A214827, A214828.

Programs

Mathematica

a={1,6,6}; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[n]]; a=RotateLeft[a]; a[[3]]=sum]