|
%I #6 Mar 30 2012 18:52:39
%S 0,0,0,1,0,0,0,1,0,2,0,2,0,2,0,1,0,0,3,0,3,1,0,0,1,0,3,0,0,1,0,2,0,4,
%T 0,1,1,1,0,1,0,1,0,1,0,0,2,0,2,0,2,0,2,0,5,1,0,0,1,0,3,0,0,0,5,0,0,1,
%U 0,2,0,4,0,1,0,6,0,0,1,2,0,3,0,5,0,2,0,0,0,0,2
%N Triangle read by rows: R(n,k)= semiprime(n) mod A065516(k), where A065516 are differences between consecutive semiprimes.
%e The triangle starts in row n=1 with columns 1<=k<=n as:
%e 0;
%e 0, 0;
%e 1, 0, 0;
%e 0, 1, 0, 2;
%e 0, 2, 0, 2, 0;
%e 1, 0, 0, 3, 0, 3;
%p A001358 := proc(n) if n= 1 then 4; else for a from procname(n-1)+1 do if numtheory[bigomega](a) = 2 then return a; end if; end do; end if; end proc:
%p A065516 := proc(n) A001358(n+1)-A001358(n) ;end proc:
%p A174479 := proc(n,k) A001358(n) mod A065516(k) ; end proc:
%Y Cf. A001358, A174433.
%K nonn,easy,tabl
%O 1,10
%A _Juri-Stepan Gerasimov_, Nov 28 2010
|
