Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A181673
Decimal expansion of Sum_{n>=1} moebius(n)*(1/10)^n.
4
0, 8, 8, 9, 9, 0, 9, 0, 0, 0, 8, 9, 9, 1, 0, 9, 8, 9, 9, 0, 1, 0, 9, 0, 0, 0, 9, 9, 8, 8, 9, 0, 1, 1, 0, 9, 9, 1, 0, 9, 8, 8, 9, 0, 0, 0, 9, 0, 0, 0, 0, 9, 9, 0, 1, 0, 1, 0, 8, 9, 9, 1, 0, 0, 0, 8, 9, 0, 0, 8, 8, 9, 9, 1, 0, 0, 0, 8, 9, 0, 0, 0, 9, 0, 1, 1, 0, 9, 9
OFFSET
0,2
EXAMPLE
0.088990900089910989901090009988901109910...
MATHEMATICA
RealDigits[ Sum[ N[ MoebiusMu[n] 10^-n, 128], {n, 120}], 10, 111][[1]] (* Robert G. Wilson v, Feb 21 2014 *)
PROG
(PARI) sum(n=1, default(realprecision)+1, moebius(n)/10.^n) \\ Charles R Greathouse IV, Feb 13 2011
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Mats Granvik, Nov 04 2010
EXTENSIONS
Corrected by Charles R Greathouse IV, May 27 2015
STATUS
approved