OFFSET
1,1
FORMULA
a(n,m) = Prime[m] + 6*Sum[i^2, {i, 1, n}]
EXAMPLE
2
3, 9
5, 11, 35
7, 13, 37
11, 17, 41, 95
13, 19, 43, 97
17, 23, 47, 101, 197
19, 25, 49, 103, 199
23, 29, 53, 107, 203
29, 35, 59, 113, 209
MATHEMATICA
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]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Aug 18 2006
STATUS
approved