A052016 Primes with digits in descending order that differ exactly by 1.

2, 3, 5, 7, 43, 76543

Offset: 1

Author

Patrick De Geest, Nov 15 1999

Keywords

• nonn
• base
• fini
• full

Comments

Primes in A138142. - Omar E. Pol, Dec 07 2008

Crossrefs

Cf. A052017, A048398, A006055, A138142.

Programs

Mathematica

fQ[n_]:=Module[{id=IntegerDigits[n],}, n < 10 || Union[Differences[id]] == {-1}]; Select[Prime[Range[10000]], fQ] (* Vladimir Joseph Stephan Orlovsky, Dec 29 2010 *)