A021654 Decimal expansion of 1/650.
0, 0, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1, 5, 3, 8, 4, 6, 1
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (1,0,-1,1).
Crossrefs
Cf. A021069.
Programs
-
Mathematica
Join[{0,0},RealDigits[1/650,10,120][[1]]] (* or *) PadRight[{0,0},120,{4,6,1,5,3,8}] (* Harvey P. Dale, May 21 2023 *)
Comments