The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #21 Mar 22 2014 05:05:27
%S 2,3,5,7,43,76543
%N Primes with digits in descending order that differ exactly by 1.
%C Primes in A138142. - _Omar E. Pol_, Dec 07 2008
%t fQ[n_]:=Module[{id=IntegerDigits[n],}, n < 10 || Union[Differences[id]] == {-1}]; Select[Prime[Range[10000]], fQ] (* _Vladimir Joseph Stephan Orlovsky_, Dec 29 2010 *)
%Y Cf. A052017, A048398, A006055, A138142.
%K nonn,base,fini,full
%O 1,1
%A _Patrick De Geest_, Nov 15 1999