|
| |
|
|
A141500
|
|
A triangular sequence of coefficients based on a skip prime prime power sequence: t(n,m)=Prime[m + 1]^n*Prime[m + 3]; qualified so the m=0 and n=0 terms are well-defined.
|
|
0
| |
|
|
1, 2, 3, 5, 7, 11, 40, 189, 1375, 4459, 80, 567, 6875, 31213, 248897, 160, 1701, 34375, 218491, 2737867, 7054567, 320, 5103, 171875, 1529437, 30116537, 91709371, 555164087, 640, 15309, 859375, 10706059, 331281907, 1192221823, 9437789479
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Row sums are: {1, 5, 23, 6063, 287632, 10047161, 678696730, 36895155023, 3099828564214,604927714827969, 50682382054711876, ...}
|
|
|
FORMULA
| t(n,m)=Prime[m + 1]^n*Prime[m + 3];
|
|
|
EXAMPLE
| {1},
{2, 3},
{5, 7, 11},
{40, 189, 1375, 4459},
{80, 567, 6875, 31213, 248897},
{160, 1701, 34375, 218491, 2737867, 7054567},
{320, 5103, 171875, 1529437, 30116537, 91709371, 555164087},
{640, 15309, 859375, 10706059, 331281907, 1192221823, 9437789479, 25922280431},
{1280, 45927, 4296875, 74942413, 3644100977, 15498883699, 160442421143, 492523328189, 2427640543711},
{2560, 137781, 21484375, 524596891, 40085110747, 201485488087, 2727521159431, 9357943235591, 55835732505353, 536764401107153},
{5120, 413343, 107421875, 3672178237, 440936218217, 2619311345131, 46367859710327, 177800921476229, 1284221847623119, 15566167632107437, 33604759766212841}
|
|
|
MATHEMATICA
| Clear[t, n, m, a] t[n_, m_] = If[m == 0 && n == 0, 1, If[n == 1, Prime[m + 1], If[n == 2, Prime[m + 3], Prime[m + 1]^n*Prime[m + 3]]]]; a = Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[a]
|
|
|
CROSSREFS
| Sequence in context: A140561 A140553 A195337 * A059999 A040130 A127727
Adjacent sequences: A141497 A141498 A141499 * A141501 A141502 A141503
|
|
|
KEYWORD
| nonn,uned,tabl
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Aug 10 2008
|
| |
|
|
