%I #5 Mar 12 2014 16:36:54
%S 2,3,9,5,11,35,7,13,37,11,17,41,95,13,19,43,97,17,23,47,101,197,19,25,
%T 49,103,199,23,29,53,107,203,29,35,59,113,209
%N Prime sum of squared build up triangular array.
%F a(n,m) = Prime[m] + 6*Sum[i^2, {i, 1, n}]
%e 2
%e 3, 9
%e 5, 11, 35
%e 7, 13, 37
%e 11, 17, 41, 95
%e 13, 19, 43, 97
%e 17, 23, 47, 101, 197
%e 19, 25, 49, 103, 199
%e 23, 29, 53, 107, 203
%e 29, 35, 59, 113, 209
%t t[n_, m_] = Prime[m] + 6*Sum[i^2, {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