OFFSET
0,1
COMMENTS
Defined to display A005846(d) in the d-th antidiagonal, d sufficiently small.
EXAMPLE
41;
43, 47;
47, 53, 61;
53, 61, 71, 83;
61, 71, 83, 97, 113;
71, 83, 97, 113, 131, 151;
83, 97, 113, 131, 151, 173, 197;
97, 113, 131, 151, 173, 197, 223, 251;
113, 131, 151, 173, 197, 223, 251, 281, 313;
131, 151, 173, 197, 223, 251, 281, 313, 347, 383;
151, 173, 197, 223, 251, 281, 313, 347, 383, 421, 461;
MATHEMATICA
f[n_] = n^2 + n + 41 t[n_, m_] = f[n + m] a = Table[Table[t[n, m], {n, 0, m}], {m, 0, 10}] c = Flatten[a]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, May 12 2006
EXTENSIONS
STATUS
approved