|
|
A249635
|
|
Indices of prime Fibonacci 6-step numbers, A001592.
|
|
2
|
|
|
7, 40, 41, 96, 664, 6095, 8419, 11471, 13690, 38835, 49832, 97152
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This sequence is similar to A105758 but uses the indexing scheme defined by A001592, whose indices start with 0.
a(13) > 3*10^5.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a = {0, 0, 0, 0, 0, 1}; For[n = 6, n ≤ 1000, n++, sum = Plus @@ a;
If[PrimeQ[sum], Print[n]]; a = RotateLeft[a]; a[[6]] = sum]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|