A257966 Indices of primes in the 11th-order Fibonacci number sequence, A127624.
12, 14, 18, 32, 33, 52, 77, 100, 105, 130, 143, 180, 210, 226, 357, 377, 472, 548, 989, 1129, 1174, 1421, 1722, 4769, 6544, 6879, 7893, 18888, 21061, 24419, 25884, 32675, 53776, 62186, 109848, 110989, 123527, 160462
Offset: 1
Keywords
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
Programs
-
Mathematica
a={1,1,1,1,1,1,1,1,1,1,1}; step=11; lst={}; For[n=step+1,n<=1000,n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst,n]]; a=RotateLeft[a]; a[[step]]=sum]; lst With[{c=PadRight[{},11,1]},Position[LinearRecurrence[c,c,1800],?PrimeQ]]//Flatten (* The program generates the first 23 terms of the sequence. *) (* _Harvey P. Dale, Jul 13 2025 *)
Comments