A262298 Primes in A262572.
13, 134567891011121314151617181920212223242526272829303132333435363738394041
Offset: 1
Programs
-
Mathematica
Select[DeleteDuplicates[Table[FromDigits[Flatten[IntegerDigits[Complement[Range[n], {2}]]]], {n, 50}]], PrimeQ[#] & ](* Robert Price, Nov 05 2018 *)
Comments