%I #5 Dec 05 2013 19:56:52
%S 1,0,3,2,3,8,10,10,11,25,24,27,3,36,6,25,50,58,16,64,14,40,25,12,67,
%T 74,60,26,7,11,116,113,40,90,143,36,41,156,152,155,128,118,19,87,194,
%U 92,103,163,218,118,194,142,104,238,181,83,191,107
%N a(n) = concatenation of 1,2,3,...,n mod prime(n).
%e The concatenation of the first 4 integers is 1234. The fourth prime is 7. Therefore a(4) = 1234 mod 7 = 2.
%t a = {}; b = {}; For[n = 1, n < 80, n++, a = Join[a, IntegerDigits[n]]; AppendTo[b, Mod[FromDigits[a], Prime[n]]]]; b
%Y Cf. A095244.
%K base,nonn,less
%O 1,3
%A _Amarnath Murthy_, Jun 17 2004
%E Edited, corrected and extended by _Stefan Steinerberger_, Jun 23 2007
|