A256498 - OEIS

%I #15 Apr 04 2015 18:28:55

%S 11,15,25,31,36,37,42,45,48,75,149,156,160,182,268,444,581,1025,1125,

%T 2504,6900,10924,11807,25262,26774,28739,29367,34902,43345,53878,

%U 74473,107070,170300,178994

%N Indices of primes in the 9th-order Fibonacci number sequence, A127193.

%C a(35) > 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.

%H OEIS Wiki, <a href="https://oeis.org/wiki/Index_of_Fibonacci_Numbers_and_Variants">Index of Fibonacci Numbers and Variants</a>

%H OEIS Wiki, <a href="http://oeis.org/wiki/Index_to_OEIS:_Section_Fi">Index to OEIS Section Fi</a>

%t 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

%Y Cf. A127193, A256499.

%K nonn,more

%O 1,1

%A _Robert Price_, Mar 31 2015