A046151 a(n) = n*phi(n) - 1.

0, 1, 5, 7, 19, 11, 41, 31, 53, 39, 109, 47, 155, 83, 119, 127, 271, 107, 341, 159, 251, 219, 505, 191, 499, 311, 485, 335, 811, 239, 929, 511, 659, 543, 839, 431, 1331, 683, 935, 639, 1639, 503, 1805, 879, 1079, 1011, 2161, 767, 2057, 999

Offset

1,3

Links

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

Mathematica

Table[n*EulerPhi[n], {n, 50}]-1 (* Harvey P. Dale, Mar 25 2015 *)

Prog

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

Crossrefs

Cf. A002618, A046152.

Sequence in context: A116640 A116623 A349170 * A046078 A075409 A258655

Adjacent sequences: A046148 A046149 A046150 * A046152 A046153 A046154

Keyword

nonn

Author

N. J. A. Sloane

Status

approved