A228359 Numbers n whose 10's complement is not prime, i.e., 10^k-n, where k is the number of digits of n, is not prime.
1, 2, 4, 6, 9, 10, 12, 13, 14, 15, 16, 18, 19, 20, 22, 23, 24, 25, 26, 28, 30, 31, 32, 34, 35, 36, 37, 38, 40, 42, 43, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 58, 60, 61, 62, 64, 65, 66, 67, 68, 70, 72, 73, 74, 75, 76, 78, 79, 80, 82, 84, 85, 86, 88, 90, 91, 92
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A228075.
Programs
-
Mathematica
Select[Range[100], ! PrimeQ[10^(IntegerLength[#]) - #]&]