%I #12 Sep 11 2013 11:57:38
%S 1,4,1,5,8,1,4,6,2,1,2,4,4,2,1,8,2,4,2,2,1,11,8,1,11,2,1,1,14,20,8,4,
%T 14,18,2,1,2,13,11,18,23,24,16,8,1,10,22,6,16,14,20,6,16,2,1,17,29,16,
%U 8,17,25,4,2,25,29,1,30,16,2,18,16,8,32,16,2,18,2,1,23,32,4,2,22
%N Triangle read by rows: R(n,k)=2^(semiprime(n)-semiprime(k)) mod semiprime(n).
%e Triangle begins:
%e 1,
%e 4, 1,
%e 5, 8, 1,
%e 4, 6, 2, 1,
%e 2, 4, 4, 2, 1,
%e 8, 2, 4, 2, 2, 1,
%o (PARI) trg(nn) = {semip = select(n->bigomega(n) == 2, vector(nn, i, i)); for (n = 1, #semip, for (k = 1, n, print1(2^(semip[n] - semip[k]) % semip[n], ", ");); print(););} \\ _Michel Marcus_, Sep 11 2013
%Y Cf. A000079, A001358, A173622, A174479, A176066, A181615.
%K nonn,tabl
%O 1,2
%A _Juri-Stepan Gerasimov_, Dec 10 2010
%E Corrected by _D. S. McNeil_, Dec 10 2010
|