OFFSET
1,3
COMMENTS
See A181842 for the definition of 'partition'.
EXAMPLE
[1] 1
[2] 1 2
[3] 1 1 3
[4] 1 1 3 4
[5] 1 1 2 2 5
[6] 1 1 2 4 6 6
[7] 1 1 2 3 4 3 7
MAPLE
with(combstruct):
a181846_row := proc(n) local k, L, l, R, part;
R := NULL;
for k from 1 to n do
L := 0;
part := iterstructs(Partition(n), size=n-k+1):
while not finished(part) do
l := nextstruct(part);
L := L + igcd(op(l));
od;
R := R, L;
od;
R end:
MATHEMATICA
T[n_, k_] := GCD @@@ IntegerPartitions[n, {n-k+1}] // Total;
Table[T[n, k], {n, 1, 13}, {k, 1, n}] (* Jean-François Alcover, Jun 22 2019 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Dec 07 2010
EXTENSIONS
Extended to 13 rows by Jean-François Alcover, Jun 22 2019
STATUS
approved