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

2, 3, 5, 7, 43, 76543

Offset

1,1

Comments

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

Links

Table of n, a(n) for n=1..6.

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 *)

Crossrefs

Cf. A052017, A048398, A006055, A138142.

Sequence in context: A028981 A223035 A096843 * A171020 A214179 A178237

Adjacent sequences: A052013 A052014 A052015 * A052017 A052018 A052019

Keyword

nonn,base,fini,full

Author

Patrick De Geest, Nov 15 1999

Status

approved