結果
問題 | No.843 Triple Primes |
ユーザー |
|
提出日時 | 2022-08-17 01:18:12 |
言語 | C++17 (gcc 13.3.0 + boost 1.87.0) |
結果 |
AC
|
実行時間 | 8 ms / 2,000 ms |
コード長 | 2,497 bytes |
コンパイル時間 | 2,042 ms |
コンパイル使用メモリ | 204,408 KB |
最終ジャッジ日時 | 2025-01-30 23:14:53 |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 42 |
ソースコード
#include<bits/stdc++.h>using namespace std;#define rep(i,n) for(ll i=0;i<n;i++)#define repl(i,l,r) for(ll i=(l);i<(r);i++)#define per(i,n) for(ll i=(n)-1;i>=0;i--)#define perl(i,r,l) for(ll i=r-1;i>=l;i--)#define fi first#define se second#define pb push_back#define ins insert#define pqueue(x) priority_queue<x,vector<x>,greater<x>>#define all(x) (x).begin(),(x).end()#define CST(x) cout<<fixed<<setprecision(x)#define vtpl(x,y,z) vector<tuple<x,y,z>>#define rev(x) reverse(x);using ll=long long;using vl=vector<ll>;using vvl=vector<vector<ll>>;using pl=pair<ll,ll>;using vpl=vector<pl>;using vvpl=vector<vpl>;const ll MOD=1000000007;const ll MOD9=998244353;const int inf=1e9+10;const ll INF=4e18;const ll dy[9]={0,-1,0,1,1,1,-1,-1,0};const ll dx[9]={-1,0,1,0,1,-1,1,-1,0};template<class T> inline bool chmin(T& a, T b) {if (a > b) {a = b;return true;}return false;}template<class T> inline bool chmax(T& a, T b) {if (a < b) {a = b;return true;}return false;}struct osak{vector<long long> lpf;// least prime factorvector<long long> prime;// prime tableosak(long long n){//linear_sievelpf=vector<long long>(n+1,-1);for (int d = 2; d <= n; ++d) {if(lpf[d]==-1){lpf[d]=d;prime.emplace_back(d);}for(auto p:prime){if(p*d>n||p>lpf[d])break;lpf[p*d]=p;}}}map<long long,long long> factor(int n) {map<long long,long long> factor;while (n > 1) {factor[lpf[n]]++;n /= lpf[n];}return factor;}vector<long long> divisor(int N){//O(div.size())map<long long,long long> facs=factor(N);vector<long long> ret={1};for(auto p:facs){ll range=ret.size();ll now=1;for(int i=0;i<p.se;i++){now*=p.fi;for(int j=0;j<range;j++){ret.emplace_back(ret[j]*now);}}}sort(ret.begin(),ret.end());return ret;}};int main(){ll n;cin >> n;osak os(5e5+10);auto prime=os.prime;ll ans=0;for(auto p:prime){if(p==2)continue;if(p>n)continue;ll q=p+2;ll f=roundl(sqrtl(q));if(f*f==q&&binary_search(all(prime),f))ans++;}ans*=2;if(n>=2)ans++;cout << ans << endl;}