A101492 Triangle read by rows: T(n,k) = (n-k+1)*(4*k+1).
1, 2, 5, 3, 10, 9, 4, 15, 18, 13, 5, 20, 27, 26, 17, 6, 25, 36, 39, 34, 21, 7, 30, 45, 52, 51, 42, 25, 8, 35, 54, 65, 68, 63, 50, 29, 9, 40, 63, 78, 85, 84, 75, 58, 33, 10, 45, 72, 91, 102, 105, 100, 87, 66, 37, 11, 50, 81, 104, 119, 126, 125, 116, 99, 74, 41, 12, 55, 90, 117
Offset: 0
Links
- Muniru A Asiru, Rows n=0..150 of triangle, flattened
Programs
-
GAP
Flat(List([0..11],n->List([0..n],k->(n+1-k)*(4*k+1)))); # Muniru A Asiru, Mar 07 2019
-
Magma
[[(n+1-k)*(4*k+1): k in [0..n]]: n in [0..10]]; // G. C. Greubel, Mar 07 2019
-
Mathematica
Flatten[Table[(n+1-k)(4k+1),{n,0,15},{k,0,n}]] (* Harvey P. Dale, Jun 09 2011 *)
-
PARI
T(n, k) = if(k>n,0,(n-k+1)*(4*k+1)); for(i=0,10, for(j=0,i,print1(T(i,j),", "));print())
-
Sage
[[(n-k+1)*(4*k+1) for k in (0..n)] for n in (0..10)] # G. C. Greubel, Mar 07 2019
Comments