OFFSET
1,3
EXAMPLE
{1},
{1, 3},
{1, 5, 75},
{1, 7, 245, 42875},
{1, 11, 847, 456533, 1722499009},
{1, 13, 1859, 2924207, 50597553721, 9630384192379093}
MATHEMATICA
a = Table[Table[If[m == 0, 1, Prime[m + 1]^n*Prime[m]^(n*(n - 1)/2)], {n, 0, m}], {m, 0, 10}]; Flatten[a]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Roger L. Bagula, Nov 20 2007
STATUS
approved