0,1

The sequence (the fourth in the family) is present as a family of interleaved sequences (five in total) which are separated or factored out to give individual sequences. The first sequence is the parent having the formulas: 50*n^2-100*n+25 and 50*n^2-50*n+25 whose entries are all divisible by 25 and is identical to A178218. The fourth sequence has the formulas 50*n^2-40*n-17 and 50*n^2+10*n+13 and is part of a group where each of the sequences are new, except for the parent (in the factored form).

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Eddie Gutierrez New  Interleaved Sequences Part H or Oddwheel.com, Section B1 Line 28 (square_sequencesVIII.html), Part H.

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

G.f.: (-17+47*x-33*x^2+53*x^3)/((1+x)*(1-x)^3).

a(n) = 2*a(n-1)-2*a(n-3)+a(n-4).

a(n) = 1+(10*n*(5*n-8)-75*(-1)^n+3)/4. [Bruno Berselli, Oct 15 2012]

Flatten[Table[{50 n^2 - 40 n - 17, 50 n^2 + 10 n + 13}, {n, 0, 23}]] (* Bruno Berselli, Oct 23 2012 *)

CoefficientList[Series[(-17 + 47*x - 33*x^2 + 53*x^3)/((1+x)*(1-x)^3), {x, 0, 40}], x] (* Vincenzo Librandi, Dec 15 2012 *)

(Magma) &cat[[50*k^2-40*k-17, 50*k^2+10*k+13]: k in [0..23]]; // Bruno Berselli, Oct 23 2012

(PARI) vector(48, n, k=(n-1)\2; if(n%2, 50*k^2-40*k-17, 50*k^2+10*k+13)) \\ Bruno Berselli, Oct 23 2012

Cf. A178218, A214345, A214393, A214405, A216876.

Sequence in context: A279232 A073887 A132955 * A063518 A168250 A089502

Adjacent sequences: A217890 A217891 A217892 * A217894 A217895 A217896

sign,easy

Eddie Gutierrez, Oct 14 2012

Definition rewritten by Bruno Berselli, Nov 09 2012

approved