|
|
A021408
|
|
Decimal expansion of 1/404.
|
|
1
|
|
|
0, 0, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2
(list;
constant;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
After the first two terms, a(n) is periodic with period 4: repeat [2, 4, 7, 5]. - Wesley Ivan Hurt, Jul 10 2016
|
|
LINKS
|
|
|
FORMULA
|
G.f.: x^2*(2+2*x+5*x^2)/(1-x+x^2-x^3).
a(n) = a(n-1) - a(n-2) + a(n-3) for n>4, a(n) = a(n-4) for n>5.
a(n) = (9 + 5*cos(n*Pi/2) + sin(n*Pi/2))/2 for n>1. (End)
|
|
EXAMPLE
|
0.0024752475247524752475247...
|
|
MAPLE
|
|
|
MATHEMATICA
|
Join[{0, 0}, RealDigits[1/404, 10, 120][[1]]] (* or *) PadRight[{0, 0}, 120, {7, 5, 2, 4}] (* Harvey P. Dale, May 18 2012 *)
CoefficientList[Series[x^2*(2 + 2*x + 5*x^2)/(1 - x + x^2 - x^3), {x, 0, 30}], x] (* Wesley Ivan Hurt, Jul 10 2016 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|