|
|
A176353
|
|
A symmetrical triangle sequence based on Dirichlet's divisors:g(n)=n*Log[n] - n + Sqrt[n];t(n,m)=If[m == 0 || m == n, 1, 1 + Round[ -g(m) - g(n - m) + g(n)]]
|
|
0
|
|
|
1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 3, 3, 3, 1, 1, 3, 3, 3, 3, 1, 1, 3, 4, 4, 4, 3, 1, 1, 3, 4, 5, 5, 4, 3, 1, 1, 3, 4, 5, 5, 5, 4, 3, 1, 1, 3, 5, 6, 6, 6, 6, 5, 3, 1, 1, 3, 5, 6, 6, 7, 6, 6, 5, 3, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
COMMENTS
|
Row sums are: {1, 2, 4, 6, 11, 14, 20, 26, 31, 42, 49,...}.
One possible method of relating sum form symmetrical triangles to product (factorial like) form triangles is that the sums forms are related to divisors.
The Dirichlet divisor approximate function for the factorial (here g(n)) gives a triangle at the exponential level that is here made into integers using the Round[] function.
|
|
REFERENCES
|
George E. Andrews, Number Theory,Dover Publications,N.Y. 1971, pp 207-208
|
|
LINKS
|
|
|
FORMULA
|
g(n)=n*Log[n] - n + Sqrt[n];
t(n,m)=If[m == 0 || m == n, 1, 1 + Round[ -g(m) - g(n - m) + g(n)]]
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 2, 1},
{1, 2, 2, 1},
{1, 3, 3, 3, 1},
{1, 3, 3, 3, 3, 1},
{1, 3, 4, 4, 4, 3, 1},
{1, 3, 4, 5, 5, 4, 3, 1},
{1, 3, 4, 5, 5, 5, 4, 3, 1},
{1, 3, 5, 6, 6, 6, 6, 5, 3, 1},
{1, 3, 5, 6, 6, 7, 6, 6, 5, 3, 1}
|
|
MATHEMATICA
|
g[n_] = n*Log[n] - n + Sqrt[n];
t1[n_, m_] = If[m == 0 || m == n, 1, 1 + Round[ -g[m] - g[n - m] + g[n]]];
Table[Table[t1[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|