|
|
|
|
0, 1, 2, 1, 11, 2, 1, 8, 7, 14, 13, 4, 27, -18, 1, 4, 23, 26, 13, 32, 19, 22, 41, 44, 31, 18, 37, 24, 27, 46, 33, 36, 23, -6, -3, 16, 19, 38, 41, 12, -1, 2, -11, 8, 11, -2, 17, 4, -9, -6, 13, 16, 3, 22, 9, 12, 31, 34, 53, 8
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
The sequence is Primorial rows of A308121.
Row n > 1 average value = A060753(n)/2.
First value on row(n) = A161527(n-1).
Last value on row(n) = A038110(n) for n > 2.
For n > 1, A060753(n) = Max(row) + Min(row).
For values x and y on row n > 1 at positions a and b on the row:
For n > 2 the penultimate value on row A002110(n) is given by
Related identity:
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Totative
|
|
EXAMPLE
|
The triangle starts:
row1: 0;
row2: 1;
row3: 2, 1;
row4: 11, 2, 1, 8, 7, 14, 13, 4;
row5: 27, -18, 1, 4, 23, 26, 13, 32, 19, 22, 41, 44, 31, 18, 37, 24, 27, 46, 33, 36, 23, -6, -3, 16, 19, 38, 41, 12, -1, 2, -11, 8, 11, -2, 17, 4, -9, -6, 13, 16, 3, 22, 9, 12, 31, 34, 53, 8;
|
|
MATHEMATICA
|
row[0] = 0; row[n_] := -(v = Numerator[Product[1 - 1/Prime[i], {i, 1, n}] / Prime[n]] * Select[Range[(p = Product[Prime[i], {i, 1, n}])], CoprimeQ[p, #] &]) + Denominator[Product[((pr = Prime[i]) - 1)/pr, {i, 1, n}]] * Range[Length[v]]; Table[row[n], {n, 0, 4}] // Flatten (* Amiram Eldar, Aug 10 2019 *)
|
|
CROSSREFS
|
Cf. A058250, A005867, A002110, A038110, A038111, A060753, A286941, A058262, A161527, A083140, A308121.
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|