A095245 (Concatenation of first n primes) modulo prime(n).

0, 2, 0, 5, 3, 7, 15, 16, 21, 27, 7, 11, 17, 21, 37, 7, 28, 10, 50, 70, 70, 23, 46, 20, 76, 93, 81, 52, 1, 58, 87, 54, 100, 128, 39, 10, 117, 16, 42, 89, 98, 61, 135, 123, 13, 89, 201, 147, 124, 176, 186, 202, 71, 74, 256, 228, 137, 84, 145

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Example

The concatenation of the first 3 primes is 235. The third prime is 5. Therefore a(3) = 235 mod 5 = 0.

Mathematica

a = {2}; b = {0}; For[n = 2, n < 100, n++, a = Flatten[Join[a, IntegerDigits[ Prime[n]]] ]; AppendTo[b, Mod[FromDigits[a], Prime[n]]]]; b
Table[Mod[FromDigits[Flatten[IntegerDigits/@Prime[Range[n]]]], Prime[n]], {n, 60}] (* Harvey P. Dale, May 30 2018 *)

Crossrefs

Cf. A095243.

Sequence in context: A356215 A107363 A154954 * A324245 A173732 A086280

Adjacent sequences: A095242 A095243 A095244 * A095246 A095247 A095248

Keyword

base,nonn,less

Author

Amarnath Murthy, Jun 17 2004

Extensions

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

Status

approved