A210441 Nonprime numbers with distinct decimal digits.
1, 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 24, 25, 26, 27, 28, 30, 32, 34, 35, 36, 38, 39, 40, 42, 45, 46, 48, 49, 50, 51, 52, 54, 56, 57, 58, 60, 62, 63, 64, 65, 68, 69, 70, 72, 74, 75, 76, 78, 80, 81, 82, 84, 85, 86, 87, 90, 91, 92, 93, 94, 95, 96, 98
Offset: 1
Links
- Jaroslav Krizek, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
Select[Range[100],!PrimeQ[#]&&Max[DigitCount[#]]<2&] (* Harvey P. Dale, Jan 22 2023 *)
Comments