Just a reminder. As a courtesy to subscribers who labor under restrictions or charges for downloads or disk space, Seqfan and Math-Fun mailing lists encourage voluntarily limiting the size of messages. We should all try to avoid posting huge data tables, large amounts of irrelevant quoted text, and/or data file attachments where possible. Personally, if a have voluminous data that I think may be of interest to list, I will offer my data on request. ----- Original Message ----- From: "Robert G. Wilson v" <rgwv@rgwv.com> To: <ham>; <alexandre.wajnberg@skynet.be> Cc: "Eric Angelini" <keynews.tv@skynet.be>; <seqfan@ext.jussieu.fr> Sent: Monday, May 09, 2005 7:55 PM Subject: Re: Semiprime's dividers concatenated
Dear Alexandre,
They do not quite cycle. Using the Mathematica coding: t = Union[ Flatten[ Table[ FromDigits[ Join[ IntegerDigits[ Prime[i]], IntegerDigits[ Prime[j]]]], {i, 250}, {j, 250}]]]; Mod[t, 10] produces a sequence that never quite falls into a pattern.
Sincerely yours, Bob.
2, 3, 5, 7, 2, 3, 5, 7, 2, 3, 5, 7, 2, 3, 5, 7, 2, 3, 5, 7, 2, 3, 5, 7, 2, 3, 5, [Very large data table and remainder of message elided]