|
|
A071172
|
|
Number of squarefree integers <= 10^n.
|
|
18
|
|
|
1, 7, 61, 608, 6083, 60794, 607926, 6079291, 60792694, 607927124, 6079270942, 60792710280, 607927102274, 6079271018294, 60792710185947, 607927101854103, 6079271018540405, 60792710185403794
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
f[n_] := Sum[ MoebiusMu[i]Floor[n/i^2], {i, Sqrt@ n}]; Table[ f[10^n], {n, 0, 14}] (* Robert G. Wilson v, Aug 04 2012 *)
|
|
PROG
|
(PARI) a(n)=my(s); forsquarefree(d=1, sqrtint(n=10^n), s += n\d[1]^2 * moebius(d)); s \\ Charles R Greathouse IV, Jan 08 2018
(Python)
from math import isqrt
from sympy import mobius
def A071172(n): return sum(mobius(k)*(10**n//k**2) for k in range(1, isqrt(10**n)+1)) # Chai Wah Wu, May 10 2024
|
|
CROSSREFS
|
Apart from initial term, same as A053462.
|
|
KEYWORD
|
nonn,changed
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|