The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A133628 a(1)=1, a(n) = a(n-1) + (p-1)*p^(n/2-1) if n is even, else a(n) = a(n-1) + p^((n-1)/2), where p=4. 6
 1, 4, 8, 20, 36, 84, 148, 340, 596, 1364, 2388, 5460, 9556, 21844, 38228, 87380, 152916, 349524, 611668, 1398100, 2446676, 5592404, 9786708, 22369620, 39146836, 89478484, 156587348, 357913940, 626349396, 1431655764, 2505397588 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS This is essentially a duplicate of A097164. - R. J. Mathar, Jun 08 2008 Partial sums of A084221. LINKS Vincenzo Librandi, Table of n, a(n) for n = 1..3000 Index entries for linear recurrences with constant coefficients, signature (1, 4, -4). FORMULA a(n) = Sum_{k=1..n} A084221(k). G.f.: x*(1+3*x)/((1-4*x^2)*(1-x)). a(n) = (4/3)*(4^(n/2)-1) if n is even, otherwise a(n) = (4/3)*(7*4^((n-3)/2)-1). a(n) = (4/3)*(4^floor(n/2) + 4^floor((n-1)/2) - 4^floor((n-2)/2) - 1). a(n) = 4^floor(n/2) + 4^floor((n+1)/2)/3 - 4/3. a(n) = A132668(a(n+1)) - 1. a(n) = A132668(a(n-1) + 1) for n > 0. A132668(a(n)) = a(n-1) + 1 for n > 0. MAPLE a[0]:=0:a[1]:=1:for n from 2 to 100 do a[n]:=4*a[n-2]+4 od: seq(a[n], n=1..31); # Zerinvary Lajos, Mar 17 2008 MATHEMATICA nxt[{n_, a_}]:={n+1, If[OddQ[n], a+3*4^((n+1)/2-1), a+4^(n/2)]}; Transpose[ NestList[ nxt, {1, 1}, 30]][[2]] (* Harvey P. Dale, Mar 31 2013 *) PROG (MAGMA) [4^Floor(n/2)+4^Floor((n+1)/2)/3-4/3: n in [1..40]]; // Vincenzo Librandi, Aug 17 2011 (PARI) vector(40, n, (3*4^floor(n/2) + 4^floor((n+1)/2) - 4)/3) \\ G. C. Greubel, Nov 08 2018 CROSSREFS Sequences with similar recurrence rules: A027383(p=2), A087503(p=3), A133629(p=5). See A133629 for general formulas with respect to the recurrence rule parameter p. Related sequences: A132666, A132667, A132668, A132669. Other related sequences for different p: A016116(p=2), A038754(p=3), A084221(p=4), A133632(p=5). Sequence in context: A301896 A053303 A097164 * A280486 A097940 A032280 Adjacent sequences:  A133625 A133626 A133627 * A133629 A133630 A133631 KEYWORD nonn AUTHOR Hieronymus Fischer, Sep 19 2007 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 3 20:08 EDT 2020. Contains 336201 sequences. (Running on oeis4.)