A106480 Row sums of inverse of sequence array for Euler phi function.

1, 0, -1, 0, -1, 2, -1, -2, 5, -4, 1, 0, -7, 18, -9, -12, 17, -24, 31, 6, -67, 94, -49, -60, 157, -230, 217, 118, -619, 758, -461, -252, 1509, -2490, 1867, 780, -4531, 6932, -5543, -820, 11885, -21248, 17591, 2586, -32415, 58070, -54325, -56

Offset

0,6

Links

Table of n, a(n) for n=0..47.

Formula

G.f.: 1/(Sum_{j>=0} phi(j+1)*x^j*(1-x)).

Mathematica

T[n_, k_] := If[k <= n, EulerPhi[n - k + 1], 0]; With[{max = 48}, Tinv = Inverse[Table[T[n, k], {n, 0, max - 1}, {k, 0, max - 1}]]; Total[Transpose[Table[Tinv[[n, k]], {n, 1, max}, {k, 1, max}]]]] (* Amiram Eldar, Nov 16 2024 *)

Crossrefs

Cf. A000010, A106476, A106477, A106478, A106479.

Sequence in context: A318354 A380079 A348373 * A099602 A151703 A151691

Adjacent sequences: A106477 A106478 A106479 * A106481 A106482 A106483

Keyword

easy,sign

Author

Paul Barry, May 03 2005

Status

approved