A242324 Indices of primes in the tribonacci-like sequence A214827.
1, 2, 3, 5, 7, 8, 11, 13, 14, 15, 18, 39, 42, 46, 128, 319, 501, 645, 749, 785, 924, 1786, 1810, 3032, 3053, 3913, 4444, 5611, 6290, 20526, 20850, 23431, 44281, 45981, 103816, 133938
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,5,5}; Print[1];Print[2]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[n]]; a=RotateLeft[a]; a[[3]]=sum]
Comments