|
| |
|
|
A132742
|
|
A triangular sequence related to the Pythagorean scale: v(n,m)=v[0]*2^n*3*m.
|
|
1
| |
|
|
1, 3, 7, 5, 1, 1, 7, 7, 7, 7, 9, 1, 1, 1, 1, 11, 7, 7, 7, 7, 7, 1, 1, 1, 1, 1, 1, 1, 3, 7, 7, 7, 7, 7, 7, 7, 5, 1, 1, 1, 1, 1, 1, 1, 1, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Differs from A132728 in the order in which n and m are handled.
|
|
|
FORMULA
| a(n,m) = 1 + Mod[2*n*3^m, 12]
|
|
|
EXAMPLE
| {1},
{3, 7},
{5, 1, 1},
{7, 7, 7, 7},
{9, 1, 1, 1, 1},
{11, 7, 7, 7, 7, 7},
{1, 1, 1, 1, 1, 1, 1},
{3, 7, 7, 7, 7, 7, 7, 7},
{5, 1, 1, 1, 1, 1, 1, 1, 1},
{7, 7, 7, 7, 7, 7, 7, 7, 7, 7},
{9, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}
|
|
|
MATHEMATICA
| Table[Table[1 + Mod[2*n*3^m, 12], {m, 0, n}], {n, 0, 10}]; Flatten[a]
|
|
|
CROSSREFS
| Sequence in context: A086242 A096627 A065084 * A021910 A094124 A141519
Adjacent sequences: A132739 A132740 A132741 * A132743 A132744 A132745
|
|
|
KEYWORD
| nonn,tabl,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 17 2007
|
| |
|
|
