a = vector(10)
cat(i,j) = eval(concat(i,Str(j)))
keep(z,l) = for(i=1,l-1,if (isprime(cat(a[i], z)) + isprime(cat(z, a[i]))==0, return(0)));return(1)

{
	k = 1;
	for (n=1, #a,
		while (!keep(k, n), k=k+1);
		a[n] = k;
		k = k+1;
		print(n" "a[n])
	)
}

quit