login
A046151
a(n) = n*phi(n) - 1.
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
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
Sequence in context: A116640 A116623 A349170 * A046078 A075409 A258655
KEYWORD
nonn
STATUS
approved