uptoqdigits(n) = {
	my(i, j, k, m);
	res = List(); 
	for(i = 2, n, 
		for(j = 1, i-1, 
			for(k = 0, 9, 
				for(m = k + 1, 9, 
					c = concat(vector(j, r, k), vector(i-j, r, m)); 
					if(vecsum(c) != 3 && !(k%2 == 0 && m%2 == 0),
						process(c)
					)
				)
			)
		)
	); 
	Set(res)
}	

process(c) = {
	my(i);
	if(c[1] == 0,
		for(i = 2, #c, 
			if(c[i] != 0, 
				c[1] = c[i]; 
				c[i] = 0;
				break;
			)
		)
	);
	forperm(c, p, 
		fr = fromdigits(Vec(p)); 
		if(isprime(fr),
			listput(res, fr);
		)
	)
}