|
| |
|
|
A048398
|
|
Primes with consecutive digits that differ exactly by 1.
|
|
20
| |
|
|
2, 3, 5, 7, 23, 43, 67, 89, 101, 787, 4567, 12101, 12323, 12343, 32321, 32323, 34543, 54323, 56543, 56767, 76543, 78787, 78989, 210101, 212123, 234323, 234343, 432121, 432323, 432343, 434323, 454543, 456767, 654323, 654343, 678767, 678989
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Or, primes in A033075. (Zak Seidov, Feb 1 2011)
|
|
|
REFERENCES
| J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 67, p. 23, Ellipses, Paris 2008.
|
|
|
LINKS
| Zak Seidov, Table of n, a(n) for n = 1..1500
|
|
|
MATHEMATICA
| Select[Prime[Range[10000]], # < 10 || Union[Abs[Differences[IntegerDigits[#]]]] == {1} &]
|
|
|
PROG
| Contribution from Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Nov 04 2010: (Start)
(Other) Haskell:
import Data.Char (digitToInt)
isConsec [d] = True
isConsec (d:d':ns) = abs (d - d') == 1 && isConsec (d':ns)
a048398_list = filter (isConsec . (map digitToInt) . show) a000040_list
-- eop. (End)
|
|
|
CROSSREFS
| Cf. A033075, A048399-A048405, A052016, A052017, A006055.
Sequence in context: A100552 A155873 A106711 * A059170 A068710 A120805
Adjacent sequences: A048395 A048396 A048397 * A048399 A048400 A048401
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Patrick De Geest (pdg(AT)worldofnumbers.com), Apr 15 1999.
|
| |
|
|
