login
A021670
Decimal expansion of 1/666.
1
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,4
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 *)
PROG
(PARI) a(n)=if(n, [5, 0, 1][n%3+1], 0) \\ Charles R Greathouse IV, Jan 20 2012
CROSSREFS
Sequence in context: A274619 A230844 A054672 * A060081 A197515 A326185
KEYWORD
nonn,cons,easy
AUTHOR
STATUS
approved