%I A101918
%S A101918 1,1,1,1,1,1,1,1,1,0,1,2,3,4,5,6,7,7,6,4,1,3,8,14,21,28,34,38,39,36,28,
%T A101918 14,7,35,69,107,146,182,210,224,217,182,113,6,140,322,532,756,973,1155,
               1268,
%U A101918 1274,1134,812,280,476,1449,2604,3872,5146,6280,7092,7372,6896,5447,2843,
               1029
%V A101918 1,-1,1,-1,1,-1,1,-1,1,0,-1,2,-3,4,-5,6,-7,7,-6,4,-1,-3,8,-14,21,-28,34,
               -38,39,-36,28,
%W A101918 -14,-7,35,-69,107,-146,182,-210,224,-217,182,-113,6,140,-322,532,-756,
               973,-1155,1268,
%X A101918 -1274,1134,-812,280,476,-1449,2604,-3872,5146,-6280,7092,-7372,6896,-5447,
               2843,1029
%N A101918 G.f. satisfies: A(x) = 1/(1 + x*A(x^8)) and also the continued fraction: 
               1+x*A(x^9) = [1;1/x,1/x^8,1/x^64,1/x^512,...,1/x^(8^(n-1)),...].
%F A101918 G.f.: (1+x^7) / (1+x+x^8) (conjectured). - Ralf Stephan, May 17 2007
%o A101918 (PARI) {a(n)=local(A);A=1-x;for(i=1,n\8+1, A=1/(1+x*subst(A,x,x^8)+x*O(x^n)));
               polcoeff(A,n,x)} (PARI) {a(n)=local(M=contfracpnqn(concat(1, vector(ceil(log(n+1)/
               log(8))+1,n,1/x^(8^(n-1)))))); polcoeff(M[1,1]/M[2,1]+x*O(x^(9*n+1)),
               9*n+1)}
%Y A101918 Cf. A101912-A101917.
%Y A101918 Sequence in context: A066853 A141258 A117656 this_sequence A132125 A102672 
               A114955
%Y A101918 Adjacent sequences: A101915 A101916 A101917 this_sequence A101919 A101920 
               A101921
%K A101918 sign
%O A101918 0,12
%A A101918 Paul D. Hanna (pauldhanna(AT)juno.com), Dec 20 2004