|
| |
|
|
A052016
|
|
Primes with digits in descending order that differ exactly by 1.
|
|
5
|
| |
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Primes in A138142. [From 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] (*From Vladimir Joseph Stephan Orlovsky, 29 Dec 2010*)
|
|
|
CROSSREFS
|
Cf. A052017, A048398, A006055.
Cf. A138142. [From Omar E. Pol, Dec 07 2008]
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
|
| |
|
|
