|
| |
|
|
A048401
|
|
Primes with consecutive digits that differ exactly by 4.
|
|
1
| |
|
|
2, 3, 5, 7, 37, 59, 73, 151, 373, 15959, 95959, 515951, 595159, 595951, 9515959, 51515159, 159595151, 159595951, 5151515951, 5159515159, 5159515951, 5951515151, 5951515951, 5959515151, 5959595951, 15151595951, 15951515159
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| pd[{a_, b_, c___}]:=Flatten[Table[Select[FromDigits/@Select[Tuples[ {a, b, c}, n], Union[Abs[Differences[#]]]=={4}&], PrimeQ], {n, 11}]]; Union[Join[{2, 3, 5, 7}, pd[{1, 5, 9}], pd[{3, 7}]]] (* From Harvey P. Dale, Aug 23 2011 *)
|
|
|
CROSSREFS
| Cf. A048398-A048405.
Sequence in context: A090713 A090912 A048416 * A160748 A117639 A202263
Adjacent sequences: A048398 A048399 A048400 * A048402 A048403 A048404
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Patrick De Geest (pdg(AT)worldofnumbers.com), Apr 15 1999.
|
|
|
EXTENSIONS
| More terms from Naohiro Nomoto (6284968128(AT)geocities.co.jp), Jul 28 2001
|
| |
|
|
