|
| |
|
|
A194519
|
|
Second coordinate of (3,7)-Lagrange pair for n.
|
|
4
|
|
|
|
1, -1, 0, 1, -1, 0, 1, -1, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 4, 2, 3, 4, 2, 3, 4, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 4, 5, 6, 4, 5, 6, 4, 5, 6, 4, 5, 6, 7, 5, 6, 7, 5, 6, 7, 5, 6, 7, 8, 6, 7, 8, 6, 7, 8, 6, 7, 8, 9, 7, 8, 9, 7, 8, 9, 7, 8, 9, 10, 8, 9, 10, 8, 9, 10, 8, 9, 10
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,11
|
|
|
COMMENTS
|
See A194508.
|
|
|
LINKS
|
Table of n, a(n) for n=1..100.
|
|
|
EXAMPLE
|
This table shows (x(n),y(n)) for 1<=n<=13:
n...... 1..2..3..4..5..6..7..8..9..10..11..12..13
x(n).. -2..3..1.-1..4..2..0..5..3..1..-1...4...2
y(n)... 1.-1..0..1.-1..0..1.-1..0..1...2...0...1
|
|
|
MATHEMATICA
|
c = 3; d = 7;
x1 = {-2, 3, 1, -1, 4, 2, 0, 5, 3, 1}; y1 = {1, -1, 0, 1, -1, 0,
1, -1, 0, 1};
x[n_] := If[n <= c + d, x1[[n]], x[n - c - d] + 1]
y[n_] := If[n <= c + d, y1[[n]], y[n - c - d] + 1]
Table[x[n], {n, 1, 100}] (* A194518 *)
Table[y[n], {n, 1, 100}] (* A194519 *)
r[1, n_] := n; r[2, n_] := x[n]; r[3, n_] := y[n]
TableForm[Table[r[m, n], {m, 1, 3}, {n, 1, 30}]]
|
|
|
CROSSREFS
|
Cf. A194508, A194518.
Sequence in context: A025684 A025678 A073189 * A025855 A215590 A097203
Adjacent sequences: A194516 A194517 A194518 * A194520 A194521 A194522
|
|
|
KEYWORD
|
sign
|
|
|
AUTHOR
|
Clark Kimberling, Aug 28 2011
|
|
|
STATUS
|
approved
|
| |
|
|
