A247192 Indices of primes in the hexanacci numbers sequence A000383.
7, 9, 30, 31, 33, 46, 52, 54, 82, 102, 109, 124, 210, 301, 351, 365, 369, 1045, 2044, 2125, 2143, 2815, 4377, 4754, 4893, 7310, 11558, 17602, 17929, 28389, 32100, 44298, 106725, 151678, 197953
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
Crossrefs
Programs
-
Mathematica
a={1,1,1,1,1}; For[n=5, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[n]]; a=RotateLeft[a]; a[[5]]=sum]
Comments