|
%I #5 Mar 12 2014 16:36:54
%S 2,3,7,5,9,41,7,11,43,11,15,47,155,13,17,49,157,17,21,53,161,417,19,
%T 23,55,163,419,23,27,59,167,423,29,33,65,173,429
%N Prime sum of cubes build up triangular array.
%F a(n,m) = Prime[m] + 4*Sum[i^3, {i, 1, n}]
%e 2
%e 3, 7
%e 5, 9, 41
%e 7, 11, 43
%e 11, 15, 47, 155
%e 13, 17, 49, 157
%e 17, 21, 53, 161, 417
%e 19, 23, 55, 163, 419
%e 23, 27, 59, 167, 423
%e 29, 33, 65, 173, 429
%t t[n_, m_] = Prime[m] + 4*Sum[i^3, {i, 1, n}] a = Table[Table[t[n, m], {n, 0, PrimePi[m]}], {m, 1, 10}] Flatten[a]
%K nonn
%O 1,1
%A _Roger L. Bagula_, Aug 18 2006
|
