login
This site is supported by donations to The OEIS 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 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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 19 23:01 EDT 2019. Contains 324222 sequences. (Running on oeis4.)