The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A118683 Triangle a(n,m) = A039701(n) + A039701(m) - A039701(n)*A039701(m) read by rows. 0
 0, 2, 0, 0, 2, 0, 1, 1, 1, 1, 0, 2, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 2, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 2, 0, 1, 0, 1, 0, 1, 0, 0, 2, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 2, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS EXAMPLE 0 2, 0 0, 2, 0 1, 1, 1, 1 0, 2, 0, 1, 0 1, 1, 1, 1, 1, 1 0, 2, 0, 1, 0, 1, 0 1, 1, 1, 1, 1, 1, 1, 1 0, 2, 0, 1, 0, 1, 0, 1, 0 0, 2, 0, 1, 0, 1, 0, 1, 0, 0 MATHEMATICA f[n_, m_]Mod[Prime[n], 3] + Mod[Prime[m], 3] - Mod[Prime[n], 3]*Mod[Prime[m], 3] a = Table[Table[f[n, m], {n, 1, m}], {m, 1, 10}] aout = Flatten[a] CROSSREFS Sequence in context: A219491 A305714 A324730 * A175800 A344981 A161116 Adjacent sequences:  A118680 A118681 A118682 * A118684 A118685 A118686 KEYWORD nonn,tabl,easy AUTHOR Roger L. Bagula, May 19 2006 EXTENSIONS Offset corrected, definition clarified, sequence extended by Assoc. Eds. of the OEIS, Jun 15 2010 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 18 20:45 EDT 2021. Contains 345121 sequences. (Running on oeis4.)