|
|
A193991
|
|
Number of zeros in the period of Fibonacci 3-step sequence A000073 mod n.
|
|
2
|
|
|
1, 2, 4, 3, 6, 8, 12, 4, 9, 12, 10, 12, 18, 9, 24, 4, 5, 18, 27, 18, 48, 10, 24, 16, 10, 12, 15, 9, 5, 48, 13, 6, 40, 5, 72, 27, 16, 18, 72, 24, 14, 36, 10, 15, 54, 48, 5, 16, 30, 20, 20, 12, 5, 30, 60, 9, 108, 4, 60, 72, 45, 26, 36, 10, 108, 40, 19, 5, 96
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
n = 3; Table[a = Join[{1}, Table[0, {n - 1}]]; a = Mod[a, i]; a0 = a; k = 0; zeros = 0; While[k++; s = Mod[Plus @@ a, i]; a = RotateLeft[a]; If[s == 0, zeros++]; a[[n]] = s; a != a0]; zeros, {i, 100}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|