|
%I #15 Jun 13 2015 00:48:56
%S 0,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,
%T 0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,
%U 1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1,5,0,1
%N Decimal expansion of 1/666.
%H Burkard Polster, <a href="http://plus.maths.org/issue52/features/polster/index.html">Juggling, maths and a beautiful mind</a>
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,1).
%t Join[{0,0},RealDigits[1/666,10,120][[1]]] (* or *) PadRight[{0,0,1},111,{5,0,1}] (* _Harvey P. Dale_, Oct 17 2011 *)
%o (PARI) a(n)=if(n,[5,0,1][n%3+1],0) \\ _Charles R Greathouse IV_, Jan 20 2012
%K nonn,cons,easy
%O 0,4
%A _N. J. A. Sloane_.
|
