A126573 a(n) = sum of terms in n-th row of triangle A126571.
1, 5, 12, 23, 36, 60, 78, 105, 132, 170, 201, 254, 290, 344, 397, 456, 502, 584, 637, 722, 793, 881, 946, 1057, 1131, 1233, 1320, 1437, 1516, 1679, 1770, 1892, 2002, 2140, 2254, 2425, 2529, 2675, 2808, 2984, 3100, 3322, 3448, 3621, 3785, 3971, 4108, 4339
Offset: 1
Keywords
Programs
-
Mathematica
f[m_, n_] := Block[{k = 0, c = n},While[c > 0,k++;While[GCD[k, m] > 1, k++ ];c--;];k];Table[Sum[f[m, n], {m, n}], {n, 50}] (* Ray Chandler, Dec 29 2006 *)
Extensions
Extended by Ray Chandler, Dec 29 2006