The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #11 Dec 14 2025 14:57:00
%S 3,7,8,16,19,36,44,151,292,448,467,896,1148,1607,1711,1956,2020,6635,
%T 14228,25519,43140,74984,77696,137975
%N Indices of primes in A214828.
%C a(25) > 2*10^5.
%H Tony D. Noe and Jonathan Vos Post, <a href="http://www.cs.uwaterloo.ca/journals/JIS/VOL8/Noe/noe5.html">Primes in Fibonacci n-step and Lucas n-step Sequences</a>, J. of Integer Sequences, Vol. 8 (2005), Article 05.4.4
%t a={1,6,6}; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[n]]; a=RotateLeft[a]; a[[3]]=sum]
%t Flatten[Position[LinearRecurrence[{1,1,1},{1,6,6},2100],_?(PrimeQ[#]&)]]-1 (* The program generates the first 17 terms of the sequence. *) (* _Harvey P. Dale_, Dec 14 2025 *)
%Y Cf. A001590, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523,A214825, A235862, A214827, A214828.
%K nonn,more
%O 1,1
%A _Robert Price_, May 17 2014