login
A095245
(Concatenation of first n primes) modulo prime(n).
3
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
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
KEYWORD
base,nonn,less
AUTHOR
Amarnath Murthy, Jun 17 2004
EXTENSIONS
Edited, corrected and extended by Stefan Steinerberger, Jun 26 2007
STATUS
approved