|
%I #9 Mar 30 2012 16:51:57
%S 0,0,1,2,0,1,5,2,1,7,8,7,6,13,13,5,3,1,9,15,7,11,14,13,21,3,10,9,17,
%T 13,29,9,16,23,29,28,27,26,4,33,9,16,23,37,10,17,6,16,2,32,49,32,29,
%U 46,17,44,43,11,50,58,32,56,10,45,33,61,60,18,67,66,47,1,17,15,22,69,18,61,5,11,73,63,42,40,29,18,7,57,12,46,53,53,49,11,18,40,84,39,37,35
%N (Digit sum of 13^n) mod n.
%H N. J. A. Sloane, <a href="/A175528/b175528.txt">Table of n, a(n) for n = 1..10000</a>
%t Array[Mod[Total[IntegerDigits[13^#]],#]&, 1000]
%Y Cf. A001022, A175527, A175525.
%K nonn,base
%O 1,4
%A _N. J. A. Sloane_, Dec 03 2010
|
