login
A257073
Indices of primes in the 10th-order Fibonacci number sequence, A127194.
2
12, 13, 14, 17, 18, 27, 28, 29, 32, 50, 73, 75, 76, 81, 105, 184, 213, 813, 896, 1553, 4132, 5661, 5787, 7896, 8726, 9225, 9345, 11332, 11391, 12627, 13163, 14173, 15900, 17772, 17827, 20847, 21034, 25607, 94510, 98297, 101251, 127488, 138108, 188706
OFFSET
1,1
COMMENTS
a(45) > 2*10^5.
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.
MATHEMATICA
a={1, 1, 1, 1, 1, 1, 1, 1, 1, 1}; step=10; lst={}; For[n=step+1, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst, n]]; a=RotateLeft[a]; a[[step]]=sum]; lst
CROSSREFS
Sequence in context: A133894 A209725 A045879 * A239722 A112655 A308919
KEYWORD
nonn
AUTHOR
Robert Price, Apr 15 2015
STATUS
approved