34 lines
416 B
Plaintext
34 lines
416 B
Plaintext
num = 1;
|
|
primepi = 1;
|
|
res = Table[
|
|
If[EvenQ[num],
|
|
num /= 2;
|
|
,
|
|
num += Prime[primepi];
|
|
primepi++;
|
|
];
|
|
num
|
|
,
|
|
{99}
|
|
];
|
|
PrependTo[res, 1];
|
|
Partition[res, 10] // Grid
|
|
|
|
Table[
|
|
num = 1;
|
|
primepi = 1;
|
|
Do[
|
|
If[EvenQ[num],
|
|
num /= 2;
|
|
,
|
|
num += Prime[primepi];
|
|
primepi++;
|
|
];
|
|
,
|
|
{j}
|
|
];
|
|
{num, Prime[primepi - 1]}
|
|
,
|
|
{j, {999, 9999, 99999, 999999, 9999999, 99999999}}
|
|
]
|