This site is supported by donations to The OEIS 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 A161116 A262726 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 19 23:01 EDT 2019. Contains 324222 sequences. (Running on oeis4.)