login
Indices of primes with digits in strictly decreasing order.
0

%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