gp > for(a=2,100,for(b=2,1000,n=a^b*2022;if(ispseudoprime(n-1)==1,if(ispseudoprime(n+1)==1,print([a,b,length(digits(n))])))))
[2, 2, 4]
[3, 22, 14]
[5, 2, 5]
[9, 11, 14]
[12, 2, 6]
[17, 2, 6]
[19, 2, 6]
[19, 10, 17]
[24, 5, 11]
[24, 10, 18]
[60, 83, 151]
[79, 2, 8]
[82, 2, 8]
[94, 2, 8]
gp >