|
Search: id:A141500
|
|
|
| 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
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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: A093487 A067933 A005234 this_sequence A059999 A040130 A127727
Adjacent sequences: A141497 A141498 A141499 this_sequence A141501 A141502 A141503
|
|
KEYWORD
|
nonn,uned,tabl
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Aug 10 2008
|
|
|
Search completed in 0.002 seconds
|
