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.

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

Offset

1,2

Comments

Row sums are: {1, 5, 23, 6063, 287632, 10047161, 678696730, 36895155023, 3099828564214,604927714827969, 50682382054711876, ...}

Links

Table of n, a(n) for n=1..35.

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 * A215162 A059999 A237438

Adjacent sequences: A141497 A141498 A141499 * A141501 A141502 A141503

Keyword

nonn,uned,tabl

Author

Roger L. Bagula, Aug 10 2008

Status

approved