A257073 Indices of primes in the 10th-order Fibonacci number sequence, A127194.

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

Table of n, a(n) for n=1..44.

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.

OEIS Wiki, Index of Prime Fibonacci Numbers and Variants

OEIS Wiki, Index to OEIS Section Fi

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
Position[With[{c=Table[1, {10}]}, LinearRecurrence[c, c, 1000]], _?PrimeQ]//Flatten (* The program generates the first 27 terms of the sequence. *) (* Harvey P. Dale, Nov 11 2024 *)

Crossrefs

Cf. A127194, A257074.

Sequence in context: A133894 A209725 A045879 * A239722 A112655 A308919

Adjacent sequences: A257070 A257071 A257072 * A257074 A257075 A257076

Keyword

nonn,changed

Author

Robert Price, Apr 15 2015

Status

approved