A092790 a(n) = (n+1)*phi(n-1)/2.

2, 5, 6, 14, 8, 27, 20, 33, 24, 65, 28, 90, 48, 68, 72, 152, 60, 189, 88, 138, 120, 275, 104, 270, 168, 261, 180, 434, 128, 495, 272, 350, 288, 444, 228, 702, 360, 492, 336, 860, 264, 945, 460, 564, 528, 1127, 400, 1071, 520, 848, 648, 1430, 504, 1140, 696, 1062, 840, 1769

Offset

3,1

Comments

[The old entry with this sequence number was a duplicate of A082470.]

Prepending [0, 3] and setting offset = 0 the sequence becomes the row sums of A378068. - Peter Luschny, Dec 27 2024

Links

Table of n, a(n) for n=3..60.

J. Jaffe, Permutation numbers, Math. Mag., 49 (1976), 80-84.

Mathematica

Table[(n+1) EulerPhi[n-1]/2, {n, 3, 60}] (* Harvey P. Dale, Apr 22 2012 *)

Prog

(PARI) a(n) = (n+1)*eulerphi(n-1)/2; \\ Michel Marcus, Sep 18 2017

Crossrefs

Cf. A378068.

Sequence in context: A058668 A271640 A180744 * A105043 A083095 A083097

Adjacent sequences: A092787 A092788 A092789 * A092791 A092792 A092793

Keyword

nonn

Author

N. J. A. Sloane, Nov 04 2008

Status

approved