A155768 Indices of primes with digits in strictly decreasing order.

1, 2, 3, 4, 11, 13, 14, 16, 18, 20, 21, 23, 25, 82, 83, 98, 100, 115, 116, 117, 119, 132, 133, 135, 142, 147, 150, 160, 162, 164, 166, 717, 835, 843, 933, 956, 968, 970, 1055, 1062, 1066, 1076, 1088, 1090, 1092, 1093, 1166, 1167, 1179, 1190, 1191, 1199, 1202

Offset: 1

Author

Zak Seidov, Jan 27 2009

Keywords

• base
• fini
• full
• nonn

Comments

Indices of primes in A052014.

There are exactly 87 terms: 1,2,3,4,11,13,14,16,18,20,21,23,25,82,83,98,100,115,116,117,119,132,133,135,142,147,150,160,162,164,166,717,835,843,933,956,968,970,1055,1062,1066,1076,1088,1090,1092,1093,1166,1167,1179,1190,1191,1199,1202,1215,1218,7433,7518,7530,7531,8414,8486,8498,8509,8510,8511,9096,9286,9391,9441,9463,9468,9471,9479,61307,68743,69564,76755,77533,77608,77614,587773,587837,649440,656917,5634190,5694444,5694505

Crossrefs

A052014.

Programs

Mathematica

Select[Range[1300],And@@Negative[Differences[IntegerDigits[Prime[#]]]]&] (* Harvey P. Dale, Nov 24 2011 *)