Codeforces gym 101190 L

首先写一个DP。从小到大排列质数$p_1=2,p_2=3,\dots$。令$f_{i,j}$表示用$\ge p_j$的质数凑出总和$i$的方案数，$g_{i,j}$为对应的长度和。那么可以发现$10^{18}$对应的最大的总和$k$在$2000$左右，可以承受。
然后可以类似数位DP的思路来输出答案了：我们枚举总和，然后由于总和相同按字典序排列，因此可以从小往大搜索，记录当前前缀对应的数位和，如果中间有不需要输出的可以跳过。
时间复杂度大概是$\mathcal{O}(\frac{k^2}{\log k}+r-l)$，不太会具体分析。

#include <bits/stdc++.h>

using namespace std;

typedef long long ll;

int prime[505],dig[505],tot;

void pre() {
  for(int i=2;tot<500;i++) {
  	bool ok=1;
  	for(int j=2;j*j<=i;j++)
  	  if (i%j==0) {
		  ok=0;
		  break;
		}
	if (ok) {
		prime[++tot]=i;
		int x=i;
		while (x) {
			dig[tot]++;
			x/=10;
		}
		dig[tot]+=2;
	}
  }
}

ll f[5005][505],g[5005][505];

void dp() {
  for(int i=1;i<=tot+1;i++) f[0][i]=1;
  int d=1;
  ll s=0;
  while (s<(ll)(1.5e18)) {
  	d++;
  	for(int i=tot;i>0;i--)
  	  if (prime[i]<=d) {
		f[d][i]=f[d][i+1]+f[d-prime[i]][i+1];
		g[d][i]=g[d][i+1]+g[d-prime[i]][i+1]+f[d-prime[i]][i+1]*dig[i];
	  }
	s+=f[d][1]*2LL+g[d][1];
  }
}

char ans[110000]; 
int sz;

int st[505],cur[50],top;
ll L,R,len,lb;

void dfs(int sum,int d,int w) {
  if (!sum) {
  	if (!sz) lb=len;
  	len+=w+2LL;
  	ans[++sz]='[';
  	for(int i=1;i<=top;i++) {
  		int x=st[i],cnt=0;
  		while (x) {
  			cur[++cnt]=x%10;
  			x/=10;
		  }
		for(int i=cnt;i>0;i--) ans[++sz]='0'+cur[i];
		if (i==top) ans[++sz]=']';
		ans[++sz]=',';
		ans[++sz]=' ';
	  }
	return;
  }
  if (d>tot||prime[d]>sum) return;
  if (f[sum][d]==f[sum][d+1]||len+(f[sum][d]-f[sum][d+1])*(w+2LL)+(g[sum][d]-g[sum][d+1])<L) {
  	len+=(f[sum][d]-f[sum][d+1])*(w+2LL)+(g[sum][d]-g[sum][d+1]);
    dfs(sum,d+1,w);
    return;
  }
  st[++top]=prime[d];
  dfs(sum-prime[d],d+1,w+dig[d]);
  top--;
  if (len>=R) return;
  dfs(sum,d+1,w);
} 

void solve() {
  for(int i=1;len<R;i++)
    if (len+f[i][1]*2LL+g[i][1]<L) len+=f[i][1]*2LL+g[i][1];
    else dfs(i,1,0);
}

int main() {
  freopen("list.in","r",stdin);
  freopen("list.out","w",stdout);
  pre();
  dp();
  scanf("%lld%lld",&L,&R);
  solve();
  for(ll i=L;i<=R;i++) putchar(ans[i-lb]);
  printf("\n");
  return 0;
}