A257074 Primes in the 10th-order Fibonacci numbers A127194.
19, 37, 73, 577, 1153, 588097, 1175617, 2350081, 18772993, 4877942342401, 40459828019985257473, 161680527238968327169, 323202386497090728961, 10317126837306838775329, 171065716870341976441855042753
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
- OEIS Wiki, Index to OEIS Section Fi
Programs
-
Mathematica
a={1,1,1,1,1,1,1,1,1,1}; step=10; offset=1; lst={}; For[n=step+offset,n<=1000,n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst,sum]]; a=RotateLeft[a]; a[[step]]=sum]; lst Select[With[{t=Table[1,{10}]},LinearRecurrence[t,t,400]],PrimeQ] (* Harvey P. Dale, Jan 17 2024 *)
Comments