A074972 a(n) == - prime(n) (modulo 20).

18, 17, 15, 13, 9, 7, 3, 1, 17, 11, 9, 3, 19, 17, 13, 7, 1, 19, 13, 9, 7, 1, 17, 11, 3, 19, 17, 13, 11, 7, 13, 9, 3, 1, 11, 9, 3, 17, 13, 7, 1, 19, 9, 7, 3, 1, 9, 17, 13, 11, 7, 1, 19, 9, 3, 17, 11, 9, 3, 19, 17, 7, 13, 9, 7, 3, 9, 3, 13, 11, 7, 1, 13, 7, 1, 17, 11, 3, 19, 11, 1, 19, 9, 7, 1

Offset

1,1

Links

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

Mathematica

Table[ Mod[ -Prime[n], 20], {n, 1, 85} ]

Crossrefs

Sequence in context: A079293 A070646 A094381 * A118511 A022974 A023460

Adjacent sequences: A074969 A074970 A074971 * A074973 A074974 A074975

Keyword

nonn

Author

Roger L. Bagula, Oct 05 2002

Extensions

Edited and extended by Robert G. Wilson v, Oct 07 2002

Status

approved