OFFSET
0,3
COMMENTS
Polynomials like x^2+2^2*x+3^2 and x^4+2^4+x^3+3^4*x^2+5^4*x+7^4 inspired this sequence.
EXAMPLE
1
1, 2
1, 4, 9
1, 8, 27, 125
1, 16, 81, 625, 2401
1, 32, 243, 3125, 16807, 161051
MATHEMATICA
T[n_, m_] := If[n == 0, 1, Prime[n]^m] a = Table[Table[T[n, m], {n, 0, m}], {m, 0, 10}] b = Flatten[a] MatrixForm[a]
Module[{nn=10, pr}, pr=Prime[Range[nn]]; Flatten[Table[Join[{1}, Take[pr, n]^n], {n, 0, nn}]]] (* Harvey P. Dale, Sep 26 2014 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Roger L. Bagula, Jun 24 2006
EXTENSIONS
Edited by N. J. A. Sloane, Mar 26 2007
STATUS
approved