%I #16 Aug 13 2024 12:05:40
%S 0,0,1,4,1,4,4,2,7,1,5,7,0,0,1,4,1,4,4,2,7,1,5,7,0,0,1,4,1,4,4,2,7,1,
%T 5,7,0,0,1,4,1,4,4,2,7,1,5,7,0,0,1,4,1,4,4,2,7,1,5,7,0,0,1,4,1,4,4,2,
%U 7,1,5,7,0,0,1,4,1,4,4,2,7,1,5,7,0,0,1,4,1,4,4,2,7,1,5,7,0,0,1
%N Decimal expansion of 1/707.
%H <a href="/index/Rec#order_11">Index entries for linear recurrences with constant coefficients</a>, signature (1,-1,1,-1,1,-1,1,-1,1,-1,1).
%F From _Chai Wah Wu_, Apr 22 2024: (Start)
%F a(n) = a(n-1) - a(n-2) + a(n-3) - a(n-4) + a(n-5) - a(n-6) + a(n-7) - a(n-8) + a(n-9) - a(n-10) + a(n-11) for n > 10.
%F G.f.: x^2*(-7*x^8 + 2*x^7 - 3*x^6 - 4*x^5 + 2*x^4 - 6*x^3 + 2*x^2 - 3*x - 1)/((x - 1)*(x^2 + 1)*(x^2 - x + 1)*(x^2 + x + 1)*(x^4 - x^2 + 1)). (End)
%e 0.001414427157001414427157001414427157...
%t Join[{0,0},RealDigits[1/707,10,120][[1]]] (* or *) PadRight[{},120,{0,0,1,4,1,4,4,2,7,1,5,7}] (* _Harvey P. Dale_, Aug 13 2024 *)
%K nonn,cons,easy
%O 0,4
%A _N. J. A. Sloane_