A080526 Final entry in n-th row of triangle in A080524.

1, 3, 10, 67, 627, 7781, 117652, 2097159, 43046725, 1000000009, 25937424606, 743008370699, 23298085122487, 793714773254157, 29192926025390632, 1152921504606846991, 48661191875666868489, 2185911559738696531985

Offset

1,2

Links

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

Formula

For odd n, a(n) = n^(n-1) + (n-1)/2; for even n, a(n) = n^(n-1) + n - 1. Alternatively, a(n) = n^(n-1) + (n-1)/(1 + (n mod 2)). - Max Alekseyev, Oct 23 2008

Mathematica

Table[If[OddQ[n], n^(n-1)+(n-1)/2, n^(n-1)+n-1], {n, 20}] (* Harvey P. Dale, Oct 04 2020 *)

Prog

(PARI) { a(n) = n^(n-1)+(n-1)/(n%2 + 1) } \\ Max Alekseyev, Oct 23 2008

Crossrefs

Cf. A080524, A080525.

Sequence in context: A004102 A072638 A262843 * A359701 A308814 A342629

Adjacent sequences: A080523 A080524 A080525 * A080527 A080528 A080529

Keyword

nonn

Author

Amarnath Murthy, Mar 21 2003

Extensions

More terms and formula from Max Alekseyev, Oct 23 2008

Status

approved