A089103 a(n) = Mod[n+Prime[n],10]

3, 5, 8, 1, 6, 9, 4, 7, 2, 9, 2, 9, 4, 7, 2, 9, 6, 9, 6, 1, 4, 1, 6, 3, 2, 7, 0, 5, 8, 3, 8, 3, 0, 3, 4, 7, 4, 1, 6, 3, 0, 3, 4, 7, 2, 5, 8, 1, 6, 9, 4, 1, 4, 5, 2, 9, 6, 9, 6, 1, 4, 5, 0, 5, 8, 3, 8, 5, 6, 9, 4, 1, 0, 7, 4, 9, 6, 5, 0, 9, 0, 3, 4, 7, 4, 9, 6, 5, 0, 3, 8, 1, 0, 5, 4, 9, 6, 9, 2, 1, 8, 9, 6, 3, 6

Offset

1,1

Links

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

Mathematica

digits=200 a=Table[Mod[n+Prime[n], 10], {n, 1, digits}]

Prog

(PARI) first(n)=(primes(n)+[1..n])%10 \\ Charles R Greathouse IV, Dec 06 2016

Crossrefs

Sequence in context: A068825 A019730 A198838 * A189964 A181910 A367453

Adjacent sequences: A089100 A089101 A089102 * A089104 A089105 A089106

Keyword

nonn,easy

Author

Roger L. Bagula, Jan 17 2004

Status

approved