|
| |
|
|
A052016
|
|
Primes with digits in descending order that differ exactly by 1.
|
|
4
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Primes in A138142. [From Omar E. Pol (info(AT)polprimos.com), Dec 07 2008]
|
|
|
MATHEMATICA
| fQ[n_]:=Module[{id=IntegerDigits[n], }, n < 10 || Union[Differences[id]] == {-1}]; Select[Prime[Range[10000]], fQ] (*From Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), 29 Dec 2010*)
|
|
|
CROSSREFS
| Cf. A052017, A048398, A006055.
Cf. A138142. [From Omar E. Pol (info(AT)polprimos.com), Dec 07 2008]
Sequence in context: A052088 A092066 A028981 * A120804 A171020 A178237
Adjacent sequences: A052013 A052014 A052015 * A052017 A052018 A052019
|
|
|
KEYWORD
| nonn,base,fini,full
|
|
|
AUTHOR
| Patrick De Geest (pdg(AT)worldofnumbers.com), Nov 15 1999.
|
| |
|
|
