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