A256498 Indices of primes in the 9th-order Fibonacci number sequence, A127193.
11, 15, 25, 31, 36, 37, 42, 45, 48, 75, 149, 156, 160, 182, 268, 444, 581, 1025, 1125, 2504, 6900, 10924, 11807, 25262, 26774, 28739, 29367, 34902, 43345, 53878, 74473, 107070, 170300, 178994
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 Fibonacci Numbers and Variants
- OEIS Wiki, Index to OEIS Section Fi
Programs
-
Mathematica
a={1,1,1,1,1,1,1,1,1}; step=9; lst={}; For[n=step+1,n<=1000,n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst,n]]; a=RotateLeft[a]; a[[step]]=sum]; lst
Comments