Semiprime's dividers concatenated
hv at crypt.org
hv at crypt.org
Tue May 10 13:16:33 CEST 2005
Eric Angelini wrote:
:> How would look an increasing sequence with
:> all such "concatenated dividers", starting
:> with the smallest one? I'm unable to build
:> it by hand, fearing as always to forget one
:> result behind...
"Robert G. Wilson v" <rgwv at rgwv.com> wrote:
:Dear Eric,
:
: Easy, just build it from the concatenation of the primes.
:
:Sort[ Flatten[ Table[ FromDigits[ Join[ IntegerDigits[ Prime[i]], IntegerDigits[
:Prime[j]] ]], {i, 10}, {j, 10}] ]]
:
:22, 23, 25, 27, 32, 33, 35, 37, 52, 53, 55, 57, 72, 73, 75, 77, 112, 113, 115,
:117, 132, 133, 135, 137, 172, 173, 175, 177, 192, 193, 195, 197, 211, 213, 217,
:219, 223, 229, 232, 233, 235, 237, 292, 293, 295, 297, [...]
The list should include 231, 241 etc.
Hugo
More information about the SeqFan
mailing list