|
Search: id:A080794
|
|
|
| A080794 |
|
Numbers n such that the integer digits of n are all contained, in any order, within the integer digits of Prime[n]. |
|
+0
2
|
|
| 7, 73, 94, 217, 281, 309, 321, 324, 325, 392, 624, 715, 751, 841, 945, 976, 1307, 1384, 1395, 1492, 1532, 1723, 1785, 1970, 2741, 2845, 2956, 2971, 3751, 3805, 4153, 4230, 4321, 4391, 4759, 4978, 4980, 5174, 5317, 5702, 5769, 5789, 5790, 5893, 5903, 5938
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
6347 is included because Prime[6347] = 63347.
|
|
MATHEMATICA
|
okQ[n_] := Module[{idnp=IntegerDigits[Prime[n]], sidn=Sort[IntegerDigits[n]]}, Intersection[idnp, sidn]==sidn]; Select[Range[10000], okQ]
|
|
CROSSREFS
|
Sequence in context: A005413 A137730 A157920 this_sequence A082719 A142053 A012049
Adjacent sequences: A080791 A080792 A080793 this_sequence A080795 A080796 A080797
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
Harvey P. Dale (hpd1(AT)nyu.edu), Mar 13 2003
|
|
|
Search completed in 0.002 seconds
|
