OFFSET
1,2
LINKS
Peter Kagey, Table of n, a(n) for n = 1..10000
L. Toth, On the Bi-Unitary Analogues of Euler's Arithmetical Function and the Gcd-Sum Function, JIS 12 (2009) 09.5.2, function phi(x,n).
EXAMPLE
Upper left corner of array begins
1 1 1 1 1 1 1 1 1 1 ...
2 1 2 1 2 1 2 1 2 1 ...
3 2 2 2 3 1 3 2 2 2 ...
4 2 3 2 4 1 4 2 3 2 ...
5 3 4 3 4 2 5 3 4 2 ...
6 3 4 3 5 2 6 3 4 2 ...
7 4 5 4 6 3 6 4 5 3 ...
8 4 6 4 7 3 7 4 6 3 ...
9 5 6 5 8 3 8 5 6 4 ...
10 5 7 5 8 3 9 5 7 4 ...
MAPLE
MATHEMATICA
With[{nn = 14}, Table[#[[k, n - k + 1]], {n, nn - 1}, {k, n}] &@ Map[Accumulate, Table[Boole@ CoprimeQ[k, n], {n, nn}, {k, nn - n}]]] // Flatten (* Michael De Vlieger, Jan 09 2018 *)
PROG
CROSSREFS
KEYWORD
AUTHOR
R. J. Mathar, Jul 21 2016
STATUS
approved