(A014578 <http://oeis.org/A014578>) Out[665]= k (-1) Sum[--------, {k, 0, ∞}] k 3 2 - 1 In[666]:= RealDigits[% /. ∞] -> 4, 8] Out[666]= {{{6, 6, 7, 6, 6, 7, 6, 6, 6, 6, 6, 7, 6, 6, 7, 6, 6, 6, 6, 6, 7, 6, 6, 7, 6, 6, 7}}, 0} --Bill (As computed by the Life pattern x = 50, y = 50, rule = B3/S23 26b3o11b3o$26bo2bo10bo2bo$26bo6b3o4bo$26bo5bo2bo4bo$27bo4bo3bo4bo$33b 4o$bo8b2o23bo$o8b4o$o3bo3b2ob2o28bo$4o5b2o29b3o$40bob2o$41b3o$41b2o$4b 2o$2b2ob2o$2bo2bo$2bo2bo$3b2o$24b3o$24bo2bo$bo22bo$o23bo$o3bo14bo5bo$ 4o14bo$18bo3bo5b4o$18b4o5bo3bo$31bo14b4o$24bo5bo14bo3bo$25bo23bo$25bo 22bo$22bo2bo$23b3o$45b2o$44bo2bo$44bo2bo$43b2ob2o$44b2o$7b2o$6b3o$6b2o bo$7b3o29b2o5b4o$8bo28b2ob2o3bo3bo$37b4o8bo$14bo23b2o8bo$13b4o$8bo4bo 3bo4bo$9bo4bo2bo5bo$9bo4b3o6bo$6bo2bo10bo2bo$7b3o11b3o! misnamed thue.)
What the heck is this ⬇? I can't delete it.