A095243 a(n) = concatenation of 1,2,3,...,n mod prime(n).

1, 0, 3, 2, 3, 8, 10, 10, 11, 25, 24, 27, 3, 36, 6, 25, 50, 58, 16, 64, 14, 40, 25, 12, 67, 74, 60, 26, 7, 11, 116, 113, 40, 90, 143, 36, 41, 156, 152, 155, 128, 118, 19, 87, 194, 92, 103, 163, 218, 118, 194, 142, 104, 238, 181, 83, 191, 107

Offset

1,3

Links

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

Example

The concatenation of the first 4 integers is 1234. The fourth prime is 7. Therefore a(4) = 1234 mod 7 = 2.

Mathematica

a = {}; b = {}; For[n = 1, n < 80, n++, a = Join[a, IntegerDigits[n]]; AppendTo[b, Mod[FromDigits[a], Prime[n]]]]; b

Crossrefs

Cf. A095244.

Sequence in context: A346472 A288247 A143744 * A049921 A191628 A376859

Adjacent sequences: A095240 A095241 A095242 * A095244 A095245 A095246

Keyword

base,nonn,less

Author

Amarnath Murthy, Jun 17 2004

Extensions

Edited, corrected and extended by Stefan Steinerberger, Jun 23 2007

Status

approved