A257227 Indices of primes in the 10th-order Fibonacci number sequence, A122265.
11, 361, 373, 2440, 14002, 68990
Offset: 1
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
Programs
-
Mathematica
a={0, 0, 0, 0, 0, 0, 0, 0, 0, 1}; step=10; lst={}; For[n=step,n<=1000,n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst,n]]; a=RotateLeft[a]; a[[step]]=sum]; lst Flatten[Position[LinearRecurrence[{1,1,1,1,1,1,1,1,1,1},{0,0,0,0,0,0,0,0,0,1},69000],?PrimeQ]]-1 (* _Harvey P. Dale, Dec 08 2017 *)
Comments