|
%I #32 Oct 25 2023 09:29:41
%S 0,1,12,3,24,5,36,7,48,9,60,11,72,13,84,15,96,17,108,19,120,21,132,23,
%T 144,25,156,27,168,29,180,31,192,33,204,35,216,37,228,39,240,41,252,
%U 43,264,45,276,47,288,49,300,51,312,53,324,55,336,57,348,59,360,61,372,63,384,65,396,67,408,69
%N Multiples of 12 and odd numbers interleaved.
%C Partial sums give the generalized 16-gonal numbers (A274978).
%C a(n) is also the length of the n-th line segment of the rectangular spiral whose vertices are the generalized 16-gonal numbers.
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (0,2,0,-1).
%F a(2n) = 12*n, a(2n+1) = 2*n + 1.
%F From _Michael De Vlieger_, Jul 26 2018: (Start)
%F G.f.: x*(1 + 12*x + x^2) / ((1 - x)^2*(1 + x)^2).
%F a(n) = 2*a(n-2) - a(n-4) for n>3. (End)
%F Multiplicative with a(2^e) = 3*2^(e+1), and a(p^e) = p^e for an odd prime p. - _Amiram Eldar_, Oct 14 2023
%F Dirichlet g.f.: zeta(s-1) * (1 + 5*2^(1-s)). - _Amiram Eldar_, Oct 25 2023
%t {0}~Join~Riffle[2 Range@ # - 1, 12 Range@ #] &@ 35 (* or *)
%t CoefficientList[Series[x (1 + 12 x + x^2)/((1 - x)^2*(1 + x)^2), {x, 0, 69}], x] (* or *)
%t LinearRecurrence[{0, 2, 0, -1}, {0, 1, 12, 3}, 70] (* _Michael De Vlieger_, Jul 26 2018 *)
%Y Cf. A008594 and A005408 interleaved.
%Y Column 12 of A195151.
%Y Sequences whose partial sums give the generalized k-gonal numbers: A026741 (k=5), A001477 (k=6), zero together with A080512 (k=7), A022998 (k=8), A195140 (k=9), zero together with A165998 (k=10), A195159 (k=11), A195161 (k=12), A195312 k=13), A195817 (k=14), A317311 (k=15).
%Y Cf. A274978.
%K nonn,easy,mult
%O 0,3
%A _Omar E. Pol_, Jul 25 2018
|
