%I #5 Nov 21 2013 12:49:32
%S 1,2,3,4,11,13,14,16,18,20,21,23,25,82,83,98,100,115,116,117,119,132,
%T 133,135,142,147,150,160,162,164,166,717,835,843,933,956,968,970,1055,
%U 1062,1066,1076,1088,1090,1092,1093,1166,1167,1179,1190,1191,1199,1202
%N Indices of primes with digits in strictly decreasing order.
%C Indices of primes in A052014.
%C 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
%t Select[Range[1300],And@@Negative[Differences[IntegerDigits[Prime[#]]]]&] (* _Harvey P. Dale_, Nov 24 2011 *)
%Y A052014.
%K base,fini,full,nonn
%O 1,2
%A _Zak Seidov_, Jan 27 2009