A046152 a(n) = n*phi(n) + 1.

2, 3, 7, 9, 21, 13, 43, 33, 55, 41, 111, 49, 157, 85, 121, 129, 273, 109, 343, 161, 253, 221, 507, 193, 501, 313, 487, 337, 813, 241, 931, 513, 661, 545, 841, 433, 1333, 685, 937, 641, 1641, 505, 1807, 881, 1081, 1013, 2163, 769, 2059, 1001

Offset

1,1

Links

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

Mathematica

Table[n*EulerPhi[n]+1, {n, 50}] (* Harvey P. Dale, Nov 04 2016 *)

Prog

(PARI) a(n) = n*eulerphi(n) + 1; \\ Michel Marcus, Mar 08 2020

Crossrefs

Cf. A002618, A046151.

Sequence in context: A007649 A218909 A225202 * A057239 A319911 A024541

Adjacent sequences: A046149 A046150 A046151 * A046153 A046154 A046155

Keyword

nonn

Author

N. J. A. Sloane

Status

approved