This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A216699 #20 Aug 25 2015 13:57:33 %S A216699 0,1,1,8,9,8,8,1,9,1,1,8,9,8,8,1,9,1,1,8,9,8,8,1,9,1,1,8,9,8,8,1,9,1, %T A216699 1,8,9,8,8,1,9,1,1,8,9,8,8,1,9,1,1,8,9,8,8,1,9,1,1,8,9,8,8,1,9,1,1,8, %U A216699 9,8,8,1,9,1,1,8,9,8,8,1,9,1,1,8,9,8,8 %N A216699 Digital root of cubes of Fibonacci numbers. %C A216699 This sequence repeats after every 8 terms, hence this is periodic with period 8. %H A216699 <a href="/index/Rec#order_08">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 1). %t A216699 Table[NestWhile[Total[IntegerDigits[#]] &, Fibonacci[n]^3, # > 9 &], {n, 0, 86}] (* _T. D. Noe_, Oct 15 2012 *) %t A216699 Join[{0},LinearRecurrence[{0, 0, 0, 0, 0, 0, 0, 1},{1, 1, 8, 9, 8, 8, 1, 9},86]] (* _Ray Chandler_, Aug 25 2015 *) %Y A216699 Cf. A004090, A056570, A216676. %K A216699 nonn,base,easy %O A216699 0,4 %A A216699 _Ravi Bhandari_, Sep 15 2012