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

Author

Antti Karttunen, Jul 04 2013

Keywords

• nonn

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

Crossrefs

Cf. A227177, A227179, A227147.

Programs

Mathematica

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

Scheme

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

Formula

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