A021670 Decimal expansion of 1/666.

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, 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, 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

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• cons
• easy

Links

• Burkard Polster, Juggling, maths and a beautiful mind
• Index entries for linear recurrences with constant coefficients, signature (0,0,1).

Programs

Mathematica

Join[{0,0},RealDigits[1/666,10,120][[1]]] (* or *) PadRight[{0,0,1},111,{5,0,1}] (* Harvey P. Dale, Oct 17 2011 *)

PARI

a(n)=if(n,[5,0,1][n%3+1],0) \\ Charles R Greathouse IV, Jan 20 2012