|
|
A256498
|
|
Indices of primes in the 9th-order Fibonacci number sequence, A127193.
|
|
1
|
|
|
11, 15, 25, 31, 36, 37, 42, 45, 48, 75, 149, 156, 160, 182, 268, 444, 581, 1025, 1125, 2504, 6900, 10924, 11807, 25262, 26774, 28739, 29367, 34902, 43345, 53878, 74473, 107070, 170300, 178994
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(35) > 2*10^5.
|
|
LINKS
|
|
|
MATHEMATICA
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|