A240696 Prime numbers n such that replacing each digit d in the decimal expansion of n with its 9's complement produces a prime.
2, 7, 97, 997, 99999999999999997
Offset: 1
Examples
997 is in the sequence because 997 becomes (002) = 2, which is prime.
Programs
-
Mathematica
lst={};f[n_]:=Block[{a=IntegerDigits[Prime[n]],b="",k=1,l},l=Length[a];While[k
Comments