Search: id:A125703
Results 1-1 of 1 results found.

%I A125703
%S A125703 1,2,3,6,4,5,30,12,8,7,210,60,18,10,9,2310,420,90,24,14,11,30030,4620,
%T A125703 630,120,36,16,13,510510,60060,6930,840,150,42,20,15,9699690,1021020,
%U A125703 90090,9240,1050,180,48,22,17,223092870,19399380,1531530,120120,11550
%N A125703 Table read by antidiagonals: row n contains the positive integers (in 
               order) which are coprime to the n-th prime and do not occur in earlier 
               rows.
%C A125703 Row n, for n >= 2, contains the multiples of (product{k=1 to n-1} p(k)) 
               that are coprime to p(n), where p(k) is the k-th prime. The concatenated 
               sequence is a permutation of the positive integers.
%H A125703 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%F A125703 T(n,m) = A002110(n-1)*A125704(n,m). - Ray Chandler
%e A125703 The beginning of the table:
%e A125703 1,3,5,7,9,11,...
%e A125703 2,4,8,10,14,16,20,...
%e A125703 6,12,18,24,36,...
%e A125703 30,60,90,120,150,...
%e A125703 210,420,630,840,...
%t A125703 f[n_, m_] := Block[{p = Prime[n], x = Product[Prime[i], {i, n - 1}], 
               k = 0, c = m},While[c > 0,k += x;While[GCD[k, p] > 1, k += x];c--;
               ];k];Table[f[d + 1 - m, m], {d, 10}, {m, d}] // Flatten(*Chandler*)
%Y A125703 Sequence in context: A064470 A127915 A072637 this_sequence A156688 A019567 
               A098286
%Y A125703 Adjacent sequences: A125700 A125701 A125702 this_sequence A125704 A125705 
               A125706
%K A125703 nonn,tabl
%O A125703 1,2
%A A125703 Leroy Quet Jan 31 2007
%E A125703 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Feb 07 2007

Search completed in 0.001 seconds