|
Search: id:A130830
|
|
|
| A130830 |
|
Irregular triangle read by rows: row(1) = [1,2,3]; thereafter row(n+1) is the tensor square of row(n). |
|
+0
2
|
|
| 1, 2, 3, 1, 2, 3, 2, 4, 6, 3, 6, 9, 1, 2, 3, 2, 4, 6, 3, 6, 9, 2, 4, 6, 4, 8, 12, 6, 12, 18, 3, 6, 9, 6, 12, 18, 9, 18, 27, 2, 4, 6, 4, 8, 12, 6, 12, 18, 4, 8, 12, 8, 16, 24, 12, 24, 36, 6, 12, 18, 12, 24, 36, 18, 36, 54, 3, 6, 9, 6, 12, 18, 9, 18, 27, 6, 12, 18, 12, 24, 36, 18, 36, 54, 9, 18, 27
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Self-similar recursion based on number set {1,2,3}.
Row lengths are A011764.
|
|
EXAMPLE
|
Triangle begins:
{1, 2, 3},
{1, 2, 3, 2, 4, 6, 3, 6, 9},
{1, 2, 3, 2, 4, 6, 3, 6, 9, 2, 4, 6, 4, 8, 12, 6, 12, 18, 3, 6, 9, 6, 12, 18, 9, 18, 27, 2, 4, 6, 4, 8, 12, 6, 12, 18, 4, 8, 12, 8, 16, 24, 12, 24, 36, 6, 12, 18, 12, 24, 36, 18, 36, 54, 3, 6, 9, 6, 12, 18, 9, 18, 27, 6, 12, 18, 12, 24, 36, 18, 36, 54, 9, 18, 27, 18, 36, 54, 27, 54, 81}, ...
|
|
MATHEMATICA
|
a[1] = {1, 2, 3}; a[2] = {1, 2, 3, 2, 4, 6, 3, 6, 9}; a[n_] := a[n] = Flatten[Table[a[n - 1][[m]]*a[n - 1], {m, 1, Length[a[n - 1]]}]]; w = Table[a[n], {n, 1, 3}]; Flatten[w]
|
|
CROSSREFS
|
Cf. A011764, A115245, A130831.
Sequence in context: A105316 A105933 A105315 this_sequence A131989 A065365 A096137
Adjacent sequences: A130827 A130828 A130829 this_sequence A130831 A130832 A130833
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Aug 20 2007
|
|
EXTENSIONS
|
Edited by njas, Jun 07 2008
|
|
|
Search completed in 0.002 seconds
|
