%I #9 Jun 22 2016 02:37:54
%S 0,0,2,8,3,2,8,6,1,1,8,9,8,0,1,6,9,9,7,1,6,7,1,3,8,8,1,0,1,9,8,3,0,0,
%T 2,8,3,2,8,6,1,1,8,9,8,0,1,6,9,9,7,1,6,7,1,3,8,8,1,0,1,9,8,3,0,0,2,8,
%U 3,2,8,6,1,1,8,9,8,0,1,6,9,9,7,1,6,7,1,3,8,8,1,0,1,9,8,3,0,0,2
%N Decimal expansion of 1/353.
%H Vincenzo Librandi, <a href="/A021357/b021357.txt">Table of n, a(n) for n = 0..1000</a>
%e From _Chai Wah Wu_, Jun 21 2016: (Start)
%e a(n) = a(n-1) - a(n-16) + a(n-17) for n > 16.
%e G.f.: x^2*(-3*x^14 - 5*x^13 - x^12 + 8*x^11 + x^10 - x^9 - 7*x^8 + 5*x^6 + 2*x^5 - 6*x^4 + x^3 + 5*x^2 - 6*x - 2)/((x - 1)*(x^16 + 1)). (End)
%t PadLeft[First@#, Abs@Last@# + Length@First@#]&@RealDigits[N[1/353, 100]] (* _Vincenzo Librandi_, Jun 22 2016 *)
%K nonn,cons
%O 0,3
%A _N. J. A. Sloane_.