|
|
A257966
|
|
Indices of primes in the 11th-order Fibonacci number sequence, A127624.
|
|
2
|
|
|
12, 14, 18, 32, 33, 52, 77, 100, 105, 130, 143, 180, 210, 226, 357, 377, 472, 548, 989, 1129, 1174, 1421, 1722, 4769, 6544, 6879, 7893, 18888, 21061, 24419, 25884, 32675, 53776, 62186, 109848, 110989, 123527, 160462
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(39) > 2*10^5.
|
|
LINKS
|
|
|
MATHEMATICA
|
a={1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}; step=11; 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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|