A095244 a(n) = concatenation n,n-1,n-2,...,3,2,1 mod (prime(n)).

1, 0, 1, 2, 3, 5, 3, 6, 5, 22, 22, 10, 20, 38, 7, 52, 55, 39, 31, 18, 17, 42, 8, 24, 72, 44, 32, 45, 87, 52, 7, 125, 22, 103, 56, 137, 123, 85, 51, 118, 39, 21, 147, 49, 99, 72, 195, 126, 152, 66, 61, 117, 19, 143, 72, 8, 162, 43, 117, 201

Offset

1,4

Links

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

Example

a(4) = 4321 mod prime(4) = 4321 mod 7 = 2

Mathematica

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

Crossrefs

Sequence in context: A209753 A185191 A103781 * A147593 A108396 A239476

Adjacent sequences: A095241 A095242 A095243 * A095245 A095246 A095247

Keyword

base,nonn,less

Author

Amarnath Murthy, Jun 17 2004

Extensions

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

Status

approved