A254412 Indices of primes in the 8th-order Fibonacci number sequence, A123526.

11, 13, 15, 24, 30, 33, 57, 104, 121, 132, 149, 158, 178, 220, 295, 389, 1070, 1101, 1373, 1761, 1778, 2333, 2731, 4541, 5189, 5237, 5738, 8025, 8787, 10561, 11783, 13435, 14638, 15337, 20985, 21722, 24770, 31009, 57367, 65877, 129773, 134630, 167020

Offset: 1

Author

Robert Price, Jan 30 2015

Keywords

• nonn
• more

Comments

a(44) > 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, A001631, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523, A214825, A235862, A000288, A000322, A000383, A249413, A060455, A079262, A123526, A254413.

Programs

Mathematica

a={1,1,1,1,1,1,1,1}; step=8; lst={}; For[n=step+1,n<=1000,n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst,n]]; a=RotateLeft[a]; a[[step]]=sum]; lst