A127641 A127640 * A051731 as infinite lower triangular matrices.

2, 3, 3, 5, 0, 5, 7, 7, 0, 7, 11, 0, 0, 0, 11, 13, 13, 13, 0, 0, 13, 17, 0, 0, 0, 0, 0, 17, 19, 19, 0, 19, 0, 0, 0, 19, 23, 0, 23, 0, 0, 0, 0, 0, 23, 29, 29, 0, 0, 29, 0, 0, 0, 0, 29, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 37, 37, 37, 37, 0, 37, 0, 0, 0, 0, 0, 37, 41, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 41

Offset: 1

Author

Gary W. Adamson, Jan 21 2007

Keywords

• nonn
• tabl
• easy

Comments

A prime transform of A051731.

Examples

			First few rows of the triangle are:
2;
3, 3;
5, 0, 5;
7, 7, 0, 7;
11, 0, 0, 0, 11;
13, 13, 13, 0, 0, 13;
...
		

Crossrefs

Cf. A127640, A051731, A127638, A127639.

Programs

Maple

A127640 := proc(n,m) if m < n then 0; else ithprime(n) ; fi ; end: A051731 := proc(n,k) if n mod k = 0 then 1 ; else 0 ; fi ; end: A127641 := proc(n,m) add( A127640(n,k)*A051731(k,m),k=1..n) ; end: for n from 1 to 15 do for m from 1 to n do printf("%d,",A127641(n,m)) ; od ; od ; # R. J. Mathar, May 19 2007

Extensions

More terms from R. J. Mathar, May 19 2007