OFFSET
1,1
COMMENTS
EXAMPLE
3 is a term since it is prime and so is 10^3 + 9 = 1009.
11 is a term since it is prime and 10^11 + 3 = 100000000003 is also a prime.
MATHEMATICA
Block[{p}, ParallelDo[p := Prime @ i; If[(PrimeQ[10^p + 3] || PrimeQ[10^p + 9]), Print @ p], {i, PrimePi @ 48109}, Method -> "FinestGrained"]]
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Mikk Heidemaa, Jan 08 2023
STATUS
approved