cp's OEIS Frontend

A114795 {concatenation n, n-1, n-2, ...3,2,1} mod n.

%I A114795 #13 Jan 10 2017 19:43:09
%S A114795 0,1,0,1,1,3,3,1,0,1,6,9,2,1,6,1,4,9,0,1,12,17,4,9,21,21,0,13,11,21,
%T A114795 20,17,6,29,1,9,8,25,36,1,0,33,41,17,36,23,26,33,34,21,30,41,38,27,6,
%U A114795 1,36,39,7,21,31,59,54,49,21,39,57,45,60,41,31,9,37,41,21
%N A114795 {concatenation n, n-1, n-2, ...3,2,1} mod n.
%H A114795 Indranil Ghosh, <a href="/A114795/b114795.txt">Table of n, a(n) for n = 1..10000</a>
%F A114795 a(n) = A000422(n) mod n. - _Michel Marcus_, Jan 10 2017
%e A114795 a(7) = 7654321 mod 7 = 3.
%t A114795 f[n_] := Mod[FromDigits@ Flatten@ IntegerDigits@ Reverse@ Range@ n,
%t A114795 n]; Array[f, 75] (* or *)
%t A114795 f[n_] := Fold[Mod[#1*10^Floor[1 + Log10@#2] + #2, n] &, 0,
%t A114795   Reverse@Range@n]; Array[f, 75] (* _Robert G. Wilson v_, Jan 10 2017 *)
%o A114795 (Python)
%o A114795 def A114795(n):
%o A114795     s=""
%o A114795     for i in range(n,0,-1):
%o A114795         s+=str(i)
%o A114795     return int(s)%n # _Indranil Ghosh_, Jan 10 2017
%Y A114795 Cf. A000422.
%K A114795 base,nonn
%O A114795 1,6
%A A114795 _Amarnath Murthy_, Nov 19 2005
%E A114795 More terms from Ryan Murphy (murphy(AT)minegoboom.com) and Evonne Haines (avissean(AT)adelphia.net), Jan 21 2006