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: A375676 A094381 A375675 * 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