A021512 - OEIS

%I #13 Aug 11 2020 01:38:45

%S 0,0,1,9,6,8,5,0,3,9,3,7,0,0,7,8,7,4,0,1,5,7,4,8,0,3,1,4,9,6,0,6,2,9,

%T 9,2,1,2,5,9,8,4,2,5,1,9,6,8,5,0,3,9,3,7,0,0,7,8,7,4,0,1,5,7,4,8,0,3,

%U 1,4,9,6,0,6,2,9,9,2,1,2,5,9,8,4,2,5,1,9,6,8,5,0,3,9,3,7,0,0,7

%N Decimal expansion of 1/508.

%H <a href="/index/Rec#order_22">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,1).

%F From _Chai Wah Wu_, Oct 23 2018: (Start)

%F a(n) = a(n-1) - a(n-21) + a(n-22) for n > 23.

%F G.f.: x^2*(-5*x^21 + 3*x^20 - 2*x^19 - 4*x^18 - x^17 + 4*x^16 + 3*x^15 + x^14 - x^13 - 7*x^12 + 7*x^10 - 4*x^9 + 6*x^8 - 6*x^7 - 3*x^6 + 5*x^5 + 3*x^4 - 2*x^3 + 3*x^2 - 8*x - 1)/(x^22 - x^21 + x - 1). (End)

%t Join[{0,0},RealDigits[1/508,10,120][[1]]] (* or *) PadRight[{0,0},120,{2,5,1,9,6,8,5,0,3,9,3,7,0,0,7,8,7,4,0,1,5,7,4,8,0,3,1,4,9,6,0,6,2,9,9,2,1,2,5,9,8,4}] (* _Harvey P. Dale_, Oct 19 2018 *)

%K nonn,cons

%O 0,4

%A _N. J. A. Sloane_.