OFFSET
1,6
LINKS
Indranil Ghosh, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A000422(n) mod n. - Michel Marcus, Jan 10 2017
EXAMPLE
a(7) = 7654321 mod 7 = 3.
MATHEMATICA
f[n_] := Mod[FromDigits@ Flatten@ IntegerDigits@ Reverse@ Range@ n,
n]; Array[f, 75] (* or *)
f[n_] := Fold[Mod[#1*10^Floor[1 + Log10@#2] + #2, n] &, 0,
Reverse@Range@n]; Array[f, 75] (* Robert G. Wilson v, Jan 10 2017 *)
PROG
(Python)
def A114795(n):
s=""
for i in range(n, 0, -1):
s+=str(i)
return int(s)%n # Indranil Ghosh, Jan 10 2017
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 19 2005
EXTENSIONS
More terms from Ryan Murphy (murphy(AT)minegoboom.com) and Evonne Haines (avissean(AT)adelphia.net), Jan 21 2006
STATUS
approved