A261863 a(n) = A143480(n)/n.

1, 2, 3, 4, 5, 12, 7, 13, 9, 16, 11, 29, 11, 23, 19, 22, 13, 36, 17, 40, 27, 37, 19, 53, 23, 41, 27, 43, 23, 79, 23, 43, 37, 47, 35, 72, 29, 59, 47, 71, 31, 103, 31, 64, 57, 61, 31, 89, 37, 79, 51, 71, 37, 107, 53, 89, 61, 79, 41, 149, 41, 83, 71, 82, 59, 142

Offset

1,2

Links

Peter Kagey, Table of n, a(n) for n = 1..10000

Mathematica

a = t = {1}; lim = 66; Do[k = 1; While[EulerPhi[k n] <= t[[n - 1]], k++]; AppendTo[a, k n]; AppendTo[t, EulerPhi[k n]], {n, 2, lim}]; Array[Take[a, {#}]/# &, {lim}] // Flatten (* Michael De Vlieger, Sep 04 2015 *)

Crossrefs

Cf. A143480, A143481 (phi(n*a(n))).

Cf. similar sequence A259439 (A143482(n)/n).

Sequence in context: A352257 A225607 A227987 * A327262 A344370 A143482

Adjacent sequences: A261860 A261861 A261862 * A261864 A261865 A261866

Keyword

nonn

Author

Peter Kagey, Sep 03 2015

Status

approved