|
| |
|
|
A164739
|
|
Prime numbers in which the difference between the largest digit and the smallest digit is a digit in the same prime.
|
|
1
| |
|
|
101, 103, 107, 109, 167, 211, 257, 307, 347, 401, 409, 431, 463, 487, 503, 509, 523, 541, 563, 601, 607, 617, 643, 653, 701, 709, 743, 761, 809, 853, 907, 1009, 1013, 1019, 1021, 1031, 1033, 1039, 1049, 1051, 1061, 1063, 1069, 1087, 1091, 1093, 1097, 1103
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Chris Caldwell, The First 1,000 Primes
|
|
|
EXAMPLE
| The difference between the largest digit (7) and the smallest digit (1) in the prime 167 is also in the same prime. The difference between the largest digit (9) and the smallest digit (0) in the prime 409 is also in the same prime. The difference between the largest digit (8) and the smallest digit (3) in the prime 853 is also in the same prime.
|
|
|
MATHEMATICA
| ss={}; Do[id=IntegerDigits[p=Prime[n]]; If[MemberQ[id, Max[id]-Min[id]], AppendTo[ss, p]], {n, 2000}]; ss [From Zak Seidov (zakseidov(AT)yahoo.com), Aug 24 2009]
fQ[n_] := Block[{id = Union@ IntegerDigits@ n}, MemberQ[id, id[[ -1]] - id[[1]] ]]; Select[ Prime@ Range@ 185, fQ@# &] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 24 2009]
|
|
|
CROSSREFS
| Cf. A000040
Sequence in context: A131687 A167844 A048528 * A085821 A183087 A056709
Adjacent sequences: A164736 A164737 A164738 * A164740 A164741 A164742
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Parthasarathy Nambi (PachaNambi(AT)yahoo.com), Aug 23 2009
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane, Aug 24 2009
Corrected and extended the sequence. Zak Seidov (zakseidov(AT)yahoo.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 24 2009
|
| |
|
|
