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

 

Logo


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

Table of n, a(n) for n=1..106.

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.

License Agreements, Terms of Use, Privacy Policy. .

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