A274221 List of quadruples: 3*n*(3*n-1), 3*n*(3*n+1), (3*n+1)^2, (3*n+2)^2.

0, 0, 1, 4, 6, 12, 16, 25, 30, 42, 49, 64, 72, 90, 100, 121, 132, 156, 169, 196, 210, 240, 256, 289, 306, 342, 361, 400, 420, 462, 484, 529, 552, 600, 625, 676, 702, 756, 784, 841, 870, 930, 961, 1024, 1056, 1122, 1156, 1225, 1260, 1332, 1369, 1444, 1482

Offset

0,4

Comments

For the formulae of the permutations of A152743, A045945, A016778 and A016790, see the link.

Links

Table of n, a(n) for n=0..52.

Luce ETIENNE, Permutations

Index entries for linear recurrences with constant coefficients, signature (1,1,-1,1,-1,-1,1).

Formula

G.f.: x^2*(1+3*x+x^2+3*x^3+x^4)/((1-x)^3*(1+x)^2*(1+x^2)). - Robert Israel, Sep 15 2016

a(n) = (18*n^2-18*n+1-3*(2*n-1)*(-1)^n-4*(-1)^((2*n-1+(-1)^n)/4))/32. Therefore: a(2k) = (18*k^2-12*k+1-(-1)^k)/8, a(2k+1) = (18*k^2+12*k+1-(-1)^k)/8.

a(n) = A064412(n) - A269064(n) for n>0.

E.g.f.: ((9*x^2 - 3*x - 1)*sinh(x) + (9*x^2 + 3*x + 2)*cosh(x) - 2*(sin(x) + cos(x)))/16. - Stefano Spezia, Nov 07 2022

Mathematica

Flatten[Table[{3 n (3 n - 1), 3 n (3 n + 1), (3 n + 1)^2, (3 n + 2)^2}, {n, 0, 15}]] (* Bruno Berselli, Sep 15 2016 *)

Prog

(Magma) &cat [[3*n*(3*n-1), 3*n*(3*n+1), (3*n+1)^2, (3*n+2)^2]: n in [0..15]]; // Bruno Berselli, Sep 15 2016

Crossrefs

Cf. A152743, A045945, A016778, A016790, A064412, A269064.

Sequence in context: A310598 A024904 A172445 * A327479 A139056 A152519

Adjacent sequences: A274218 A274219 A274220 * A274222 A274223 A274224

Keyword

nonn,easy

Author

Luce ETIENNE, Sep 14 2016

Status

approved