OFFSET
1,13
EXAMPLE
a(5) = [{5/2}+{5/3}+{5/5}] = [1/2 + 2/3 + 0] = 1.
a(6) = [{6/2}+{6/3}+{6/5}] = [0 + 0 + 1/5] = 0.
MATHEMATICA
f[n_] := Floor[Plus @@ FractionalPart[n / Table[Prime[i], {i, PrimePi[ n]}]]]; Table[ f[n], {n, 103}]
PROG
(PARI) a(n) = {s = 0; forprime(p = 2, n, s+= frac(n/p); ); floor(s); } \\ Michel Marcus, Feb 05 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Carlos Alves, Feb 08 2005
EXTENSIONS
More terms from Robert G. Wilson v, Feb 11 2005
Offset corrected by Michel Marcus, Feb 05 2014
STATUS
approved