|
|
MAPLE
| # First define t1, the sequence A051838.
t1:=[1, 3, 8, 13, 23, 38, 39, 41, 43, 48, 50, 53, 56, 57, 58, 66, 68,
70, 73, 77, 84, 90, 94, 98, 126, 128, 134, 140, 143, 145, 149,
151, 153, 157, 160, 164, 167, 168, 172, 174, 176, 182, 191,
194, 196, 200, 210, 212, 215, 217, 218, 219, 222, 225, 228,
229];
p:=ithprime;
num:=n->mul(p(i), i=1..t1[n]);
s:=[num(i), i=1..11)];
|
