A155763 Indices of primes with digits in strictly increasing order.
1, 2, 3, 4, 6, 7, 8, 9, 10, 12, 15, 17, 19, 22, 24, 31, 33, 34, 35, 37, 39, 41, 52, 55, 57, 69, 70, 72, 73, 75, 77, 88, 91, 92, 104, 203, 204, 205, 207, 209, 219, 232, 237, 247, 249, 278, 348, 350, 355, 364, 365, 376, 391, 405, 483, 486, 487, 619, 633, 644, 749, 1475
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..100
Crossrefs
Programs
-
Mathematica
Select[Range[1500],Min[Differences[IntegerDigits[Prime[#]]]]>0&] (* Harvey P. Dale, Feb 27 2017 *)
Comments