A211771 Nonprime numbers with distinct digits in ascending order.
1, 4, 6, 8, 9, 12, 14, 15, 16, 18, 24, 25, 26, 27, 28, 34, 35, 36, 38, 39, 45, 46, 48, 49, 56, 57, 58, 68, 69, 78, 123, 124, 125, 126, 128, 129, 134, 135, 136, 138, 145, 146, 147, 148, 156, 158, 159, 168, 169, 178, 189, 234, 235, 236, 237, 238, 245, 246, 247
Offset: 1
Links
- Jaroslav Krizek, Table of n, a(n) for n = 1..411 (complete list)
Crossrefs
Programs
-
Mathematica
nnddQ[n_]:=!PrimeQ[n]&&Max[DigitCount[n]]<2&&Min[Differences[ IntegerDigits[ n]]]>0; Select[Range[300],nnddQ] (* Harvey P. Dale, Sep 27 2020 *)
Formula
A178788(a(n)) = 1.
Comments