|
|
A105757
|
|
Prime Fibonacci 5-step numbers, A001591.
|
|
4
|
|
|
2, 31, 61, 5976577, 1989179797398599794811479787771439644489521, 11241696329548911284929550459702062135838997526529, 73666302576706758839299120422550197113618385815703101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
a={1, 0, 0, 0, 0}; lst={}; Do[s=Plus@@a; a=RotateLeft[a]; a[[ -1]]=s; If[PrimeQ[s], AppendTo[lst, s]], {n, 1000}]; lst
|
|
CROSSREFS
|
Cf. A105756 (indices of prime Fibonacci 5-step numbers).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|