|
%I #7 Aug 18 2015 00:10:22
%S 2,0,3,0,0,5,0,0,0,7,0,0,0,0,11,0,0,0,0,0,13,0,0,0,0,0,0,17,0,0,0,0,0,
%T 0,0,19,0,0,0,0,0,0,0,0,23,0,0,0,0,0,0,0,0,0,29,0,0,0,0,0,0,0,0,0,0,
%U 31,0,0,0,0,0,0,0,0,0,0,0,37,0,0,0,0,0,0,0,0,0,0,0,0,41,0,0,0,0,0,0,0,0,0,0
%N Triangle read by rows in which row n contains n-1 0's followed by prime(n).
%C A127641 = this sequence * A051731.
%e First few rows of the triangle are:
%e 2;
%e 0, 3
%e 0, 0, 5;
%e 0, 0, 0, 7;
%e 0, 0, 0, 0, 11;
%e ...
%p A127640 := proc(n,m) if m < n then 0; else ithprime(n) ; fi ; end: for n from 1 to 15 do for m from 1 to n do printf("%d,",A127640(n,m)) ; od ; od ; # _R. J. Mathar_, May 19 2007
%Y Cf. A127641, A127638, A127639, A051731.
%K nonn,tabl,easy
%O 1,1
%A _Gary W. Adamson_, Jan 21 2007
%E More terms from _R. J. Mathar_, May 19 2007
|
