|
|
A130497
|
|
Repetition of odd numbers five times.
|
|
4
|
|
|
1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 7, 7, 7, 7, 7, 9, 9, 9, 9, 9, 11, 11, 11, 11, 11, 13, 13, 13, 13, 13, 15, 15, 15, 15, 15, 17, 17, 17, 17, 17, 19, 19, 19, 19, 19, 21, 21, 21, 21, 21, 23, 23, 23, 23, 23, 25, 25, 25, 25, 25, 27, 27, 27, 27, 27, 29, 29, 29, 29, 29, 31, 31, 31
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,6
|
|
LINKS
|
|
|
FORMULA
|
a(n) = -1 + 2*Sum_{k=0..n} {[8*(sin(2*Pi*k/5))^2-5]^2-5}/20, with n>=0.
a(n) = -1 + (1/25)*Sum_{k=0..n} ( (-9*[k mod 5] +[(k+1) mod 5] +[(k+2) mod 5] +[(k+3) mod 5] +11*[(k+4) mod 5]) ), with n>=0.
a(n) = -1 + 2*Sum{k=0..n} (1 - (k^4 mod 5) ), with n>=0. - Paolo P. Lava, Feb 17 2010
a(n) = a(n-1) + a(n-5) - a(n-6).
G.f.: (1+x)*(1-x+x^2-x^3+x^4)/((1+x+x^2+x^3+x^4) * (1-x)^2 ). (End)
|
|
MAPLE
|
P:=proc(n) local i, j, k; for i from 0 by 1 to n do j:=-1+2*sum('(8*(sin(2*Pi*k/5))^2-5)^2-5', 'k'=0..i)/20 ; print(j); od; end: P(100);
|
|
MATHEMATICA
|
Flatten[Table[#, {5}]&/@Range[1, 31, 2]] (* Harvey P. Dale, Mar 27 2013~ *)
|
|
PROG
|
(PARI) my(x='x+O('x^80)); Vec((1+x^5)/((1-x)*(1-x^5))) \\ G. C. Greubel, Sep 12 2019
(Magma) R<x>:=PowerSeriesRing(Integers(), 80); Coefficients(R!( (1+x^5)/((1-x)*(1-x^5)) )); // G. C. Greubel, Sep 12 2019
(Sage)
P.<x> = PowerSeriesRing(ZZ, prec)
return P((1+x^5)/((1-x)*(1-x^5))).list()
(GAP) a:=[1, 1, 1, 1, 1, 3];; for n in [7..80] do a[n]:=a[n-1]+a[n-5]-a[n-6]; od; a; # G. C. Greubel, Sep 12 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|