A090183 a(n) = Mod[10-Mod[Prime[n+3],10],4]-Mod[n,4]+3.

5, 2, 3, 6, 3, 4, 1, 4, 5, 2, 3, 6, 5, 2, 1, 6, 3, 4, 1, 6, 3, 4, 1, 6, 5, 2, 3, 6, 3, 4, 1, 4, 3, 4, 3, 6, 5, 2, 1, 4, 5, 4, 1, 4, 5, 4, 1, 6, 3, 2, 1, 6, 5, 2, 1, 6, 3, 4, 3, 6, 3, 4, 3, 4, 5, 4, 1, 6, 3, 4, 3, 4, 5, 2, 3, 4, 3, 2, 1, 4, 5, 2, 3, 4, 5, 2, 3, 6, 3, 4, 1, 4, 5, 2, 1, 6, 3, 4, 3, 6, 3, 2, 3, 6, 5

Offset

3,1

Comments

A coding of the primes {1,3,7,9} digits using mode using modulo four as a pretransform.

This coding loses one degree of freedom in the process.

Links

Table of n, a(n) for n=3..107.

Mathematica

digits=200 Table[Mod[10-Mod[Prime[n+3], 10], 4]-Mod[n, 4]+3, {n, 1, digits}]

Crossrefs

Sequence in context: A019673 A229780 A272031 * A063572 A205294 A372806

Adjacent sequences: A090180 A090181 A090182 * A090184 A090185 A090186

Keyword

nonn

Author

Roger L. Bagula, Jan 20 2004

Status

approved