A146323 a(n)= integer part [ Sum_i=1..n (1/phi(i))]

1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9

Offset

1,2

Comments

Looking on the number of 1`s, 2`s,...k`s in this sequence we obtain the sequence (1,2,4,5,9,16,25,42,72,...). Lim_k-->oo [number of (k+1)`s / number of(k`s)] = sqrt(e).

Links

Table of n, a(n) for n=1..105.

Mathematica

IntegerPart[Accumulate[1/EulerPhi[Range[110]]]] (* Harvey P. Dale, Dec 19 2015 *)

Crossrefs

Cf. A000010

Sequence in context: A156079 A268708 A061555 * A071626 A182008 A106457

Adjacent sequences: A146320 A146321 A146322 * A146324 A146325 A146326

Keyword

nonn

Author

Ctibor O. Zizka, Oct 30 2008

Status

approved