A143483 a(n) = phi(A143482(n)) where phi(m) = A000010(m).

1, 1, 2, 2, 4, 4, 6, 8, 18, 20, 20, 24, 24, 24, 24, 32, 32, 36, 36, 40, 48, 60, 88, 96, 100, 120, 162, 168, 168, 176, 180, 192, 220, 256, 288, 288, 360, 360, 384, 400, 400, 432, 504, 560, 600, 616, 736, 736, 756, 800, 864, 864, 936, 936, 1000, 1008, 1008, 1008

Offset

1,3

Comments

Previous name was: a(n) is the number of positive integers <= A143482(n) and coprime to A143482(n).

a(n+1) >= a(n) for all n.

Links

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

Mathematica

a = t = {1}; lim = 58; Do[k = 1; While[EulerPhi[k n] < t[[n - 1]], k++]; AppendTo[a, k n]; AppendTo[t, EulerPhi[k n]], {n, 2, lim}]; EulerPhi /@ a (* Michael De Vlieger, Sep 04 2015 *)

Crossrefs

Cf. A143482.

A143481 is an analogous sequence with A143480 as the referenced sequence.

Sequence in context: A045674 A276065 A325253 * A323093 A264788 A192326

Adjacent sequences: A143480 A143481 A143482 * A143484 A143485 A143486

Keyword

nonn

Author

Leroy Quet, Aug 19 2008

Extensions

Extended by Ray Chandler, Nov 09 2008

Name changed by Peter Kagey, Sep 03 2015

Status

approved