|
| |
|
|
A100370
|
|
Primes displayed in A099756 after sorted by size of terms.
|
|
1
| |
|
|
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 37, 41, 43, 47, 53, 59, 61, 67, 79, 83, 89, 101, 103, 107, 109, 127, 137, 139, 149, 151, 157, 163, 167, 179, 181, 211, 227, 239, 241, 251, 257, 263, 269, 281, 283, 307, 347, 349, 359, 367, 379, 389, 401, 409, 431, 449, 457, 461
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Inspired by A099756.
|
|
|
EXAMPLE
| Positions of "minimal terms" [see A007809] inside A099756 and here, in A100370, are {2,8,31,138,320,574,779,900,942,950} or {1,6,23,84,250,494,721,873,934,950} respectively.
This is because order of A099756 and A100370 based on different criteria.
|
|
|
MATHEMATICA
| <<DiscreteMath`Combinatorica` tm=TimeUsed[]; ta={{0}}; upps=PrimePi[{11, 787, 22259, 70879, 607889, 4456789, 40456789, 304456879, 1123465789, 10123457689}]; Do[ks1=KSubsets[{0, 1, 2, 3, 4, 5, 6, 7, 8, 9}, hu]; Table[fla=1; Do[If[Equal[Union[IntegerDigits[Prime[n]]], Part[ks1, j]]&&Equal[fla, 1], ta=Append[ta, Prime[n]]; Print[Prime[n]]; fla=0], {n, PrimePi[1+10^(hu-1)], Part[upps, hu]}], {j, 1, Length[ks1]}], {hu, 1, 10}]; {ta=Union[Delete[ta, 1]], TimeUsed[]-tm} (*program displays hits and measures CPU-time too*)
|
|
|
CROSSREFS
| Cf. A007809, A007810, A099651, A099653, A099654, A099756, A100369.
Sequence in context: A100724 A100110 A095323 * A095319 A129621 A077500
Adjacent sequences: A100367 A100368 A100369 * A100371 A100372 A100373
|
|
|
KEYWORD
| fini,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Nov 30 2004
|
| |
|
|
