A257073 Indices of primes in the 10th-order Fibonacci number sequence, A127194.

12, 13, 14, 17, 18, 27, 28, 29, 32, 50, 73, 75, 76, 81, 105, 184, 213, 813, 896, 1553, 4132, 5661, 5787, 7896, 8726, 9225, 9345, 11332, 11391, 12627, 13163, 14173, 15900, 17772, 17827, 20847, 21034, 25607, 94510, 98297, 101251, 127488, 138108, 188706

Offset: 1

Author

Robert Price, Apr 15 2015

Keywords

• nonn

Comments

a(45) > 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.
• OEIS Wiki, Index of Prime Fibonacci Numbers and Variants
• OEIS Wiki, Index to OEIS Section Fi

Crossrefs

Cf. A127194, A257074.

Programs

Mathematica

a={1,1,1,1,1,1,1,1,1,1}; step=10; lst={}; For[n=step+1,n<=1000,n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst,n]]; a=RotateLeft[a]; a[[step]]=sum]; lst
Position[With[{c=Table[1,{10}]},LinearRecurrence[c,c,1000]],?PrimeQ]//Flatten (* The program generates the first 27 terms of the sequence. *) (* _Harvey P. Dale, Nov 11 2024 *)