OFFSET
1,1
FORMULA
a(n,m) = Prime[m] + 4*Sum[i^3, {i, 1, n}]
EXAMPLE
2
3, 7
5, 9, 41
7, 11, 43
11, 15, 47, 155
13, 17, 49, 157
17, 21, 53, 161, 417
19, 23, 55, 163, 419
23, 27, 59, 167, 423
29, 33, 65, 173, 429
MATHEMATICA
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]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Aug 18 2006
STATUS
approved