OFFSET
1,9
COMMENTS
LINKS
G. C. Greubel, Rows n = 1..50 of the triangle, flattened
FORMULA
EXAMPLE
First few rows of the triangle =
1;
1, 0;
1, 1, 0;
1, 0, 2, 0;
1, 1, 2, 3, 0;
1, 0, 0, 0, 7, 0;
1, 1, 2, 3, 7, 8, 0;
1, 0, 2, 0, 7, 0, 22, 0;
1, 1, 0, 3, 7, 0, 22, 32, 0;
1, 0, 2, 0, 0, 0, 22, 0, 66, 0;
...
MAPLE
T:= (n, k) -> `if`(gcd(n, k)=1, A045545(k), 0);
seq(seq(T(n, k), k=1..n), n=1..12); # G. C. Greubel, Mar 08 2021
MATHEMATICA
T[n_, k_]:= If[GCD[n, k]==1, A045545[k], 0];
Table[T[n, k], {n, 12}, {k, n}]//Flatten (* G. C. Greubel, Mar 08 2021 *)
PROG
(Sage)
@CachedFunction
def A045545(n): return 1 if n<3 else sum( kronecker_delta(gcd(n, j), 1)*A045545(j) for j in (0..n-1) )
def T(n, k): return A045545(k) if gcd(n, k)==1 else 0
flatten([[T(n, k) for k in (1..n)] for n in (1..12)]) # G. C. Greubel, Mar 08 2021
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gary W. Adamson, Aug 28 2008
STATUS
approved