login
Decimal expansion of 1/707.
0

%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_