|
%I #3 Mar 30 2012 17:34:21
%S 41,43,47,47,53,61,53,61,71,83,61,71,83,97,113,71,83,97,113,131,151,
%T 83,97,113,131,151,173,197,97,113,131,151,173,197,223,251,113,131,151,
%U 173,197,223,251,281,313,131,151,173,197,223,251,281,313,347,383,151,173
%N Triangle T(n,m) = (n+m)^2+n+m+41, read by rows.
%C Defined to display A005846(d) in the d-th antidiagonal, d sufficiently small.
%e 41;
%e 43, 47;
%e 47, 53, 61;
%e 53, 61, 71, 83;
%e 61, 71, 83, 97, 113;
%e 71, 83, 97, 113, 131, 151;
%e 83, 97, 113, 131, 151, 173, 197;
%e 97, 113, 131, 151, 173, 197, 223, 251;
%e 113, 131, 151, 173, 197, 223, 251, 281, 313;
%e 131, 151, 173, 197, 223, 251, 281, 313, 347, 383;
%e 151, 173, 197, 223, 251, 281, 313, 347, 383, 421, 461;
%t 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]
%Y Cf. A014556.
%K nonn,less,tabl
%O 0,1
%A _Roger L. Bagula_, May 12 2006
%E Keyword:less and reference to A005846, A014556 added - The Assoc. Eds. of the OEIS, Oct 20 2010
|
