51nod-1717-好数

问题描述

有n个数 a[1],a[2],…,a[n]开始都是0
现在进行操作 t从1~n依次增加
每次把下标时t的倍数的数都反转（0变成1,1变成0）
如果最后a[i]为0，那么称此时的i为好数。
现在对于给定的n，求这时候的好数个数。
n<=1e15

Input

一个数n，表示有n个数。（n<=1e15）

Output

一个数，表示好数的个数。

样例

input

2

output

1

题解

我们可以发现，好数都是约数有偶数个的数。
而只有完全平方数的约数个数才为奇数。
所以ans=n-[sqrt(n)];
P党瑟瑟发抖quq

var n,ans:int64;
begin
  readln(n);
  ans:=n-sqr(trunc(sqrt(n)));
  writeln(ans);
end.