A227182 Simple self-inverse permutation of natural numbers: List each block of n^2 - n + 1 numbers from ((n-1)^3 + 2*(n-1))/3 + 1 to (n^3 + 2*n)/3 in reverse order.

0, 1, 4, 3, 2, 11, 10, 9, 8, 7, 6, 5, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46

Offset

0,3

Comments

In other words, after zero, list each block of A002061(n) numbers from A116731(n) to A006527(n) in reverse order.

Links

Antti Karttunen, Table of n, a(n) for n = 0..9951

Index entries for sequences that are permutations of the natural numbers

Formula

a(n) = A006527(A227177(n)) - A227179(n).

Mathematica

Flatten[(Reverse/@( (-1+#) (9-5 #+#^2)/3+Range[(#-2) (#-1)+1]-1)&)[Range[7]]] (* Peter J. C. Moses, Jul 11 2013 *)

Prog

(Scheme): (define (A227182 n) (- (A006527 (A227177 n)) (A227179 n)))

Crossrefs

Cf. A227177, A227179, A227147.

Sequence in context: A276612 A058509 A105109 * A065367 A333780 A033882

Adjacent sequences: A227179 A227180 A227181 * A227183 A227184 A227185

Keyword

nonn

Author

Antti Karttunen, Jul 04 2013

Status

approved