A110538 Row sums of A110537 viewed as a number triangle.

1, 2, 4, 6, 9, 16, 25, 42, 78, 152, 317, 706, 1685, 4234, 11173, 30850, 88804, 265936, 826931, 2665434, 8892534, 30664346, 109149206, 400544458, 1513655722, 5884263058, 23508569872, 96437400910, 405880177443

Offset

1,2

Comments

Sums of antidiagonals of A110537 when this is viewed as a number square.

Links

G. C. Greubel, Table of n, a(n) for n = 1..710

Formula

a(n) = Sum_{k=1..n} Sum_{j=1..min(n-k+1,k)} ceiling(j^(n-k+1)/(n-k+1)^j)*ceiling(j^k/k^j).

Mathematica

T[n_] := Sum[Sum[ Ceiling[j^(n - k + 1)/(n - k + 1)^j]*Ceiling[j^k/k^j], {j, 1, Min[n - k + 1, k]}], {k, 1, n}]; Table[T[n], {n, 1, 50}] (* G. C. Greubel, Aug 31 2017 *)

Prog

(PARI) for(n=1, 25, print1(sum(k=1, n, sum(j=1, min(n-k+1, k), ceil(j^(n-k+1)/(n-k+1)^j)*ceil(j^k/k^j))), ", ")) \\ G. C. Greubel, Aug 31 2017

Crossrefs

Sequence in context: A318026 A173241 A096398 * A288039 A373639 A327744

Adjacent sequences: A110535 A110536 A110537 * A110539 A110540 A110541

Keyword

easy,nonn

Author

Paul Barry, Jul 25 2005

Status

approved