A249635 Indices of prime Fibonacci 6-step numbers, A001592.
7, 40, 41, 96, 664, 6095, 8419, 11471, 13690, 38835, 49832, 97152
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
- Eric Weisstein's World of Mathematics, Fibonacci n-Step Number
Programs
-
Mathematica
a = {0, 0, 0, 0, 0, 1}; For[n = 6, n ≤ 1000, n++, sum = Plus @@ a; If[PrimeQ[sum], Print[n]]; a = RotateLeft[a]; a[[6]] = sum]
Formula
a(n) = A105758 (n) + 4.
Comments