|
|
A254412
|
|
Indices of primes in the 8th-order Fibonacci number sequence, A123526.
|
|
2
|
|
|
11, 13, 15, 24, 30, 33, 57, 104, 121, 132, 149, 158, 178, 220, 295, 389, 1070, 1101, 1373, 1761, 1778, 2333, 2731, 4541, 5189, 5237, 5738, 8025, 8787, 10561, 11783, 13435, 14638, 15337, 20985, 21722, 24770, 31009, 57367, 65877, 129773, 134630, 167020
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(44) > 2*10^5.
|
|
LINKS
|
|
|
MATHEMATICA
|
a={1, 1, 1, 1, 1, 1, 1, 1}; step=8; 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
|
Cf. A001590, A001631, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523, A214825, A235862, A000288, A000322, A000383, A249413, A060455, A079262, A123526, A254413.
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|