A220364 - OEIS

%I #13 Dec 14 2012 09:45:59

%S 1,2,3,4,9,18,45,117,189,279,297,414,441,612,738,855,1278,1836,1863,

%T 2223,2736,3321,3519,5400,5472,5661,5751,6039,7074,8055,8397,8496,

%U 8523,9207,9576,11223,12087,13023,13095,15804,16983,17154,20637,21771,21942,23967

%N Numbers n that divide the sum of digits of 36^n.

%H Robert G. Wilson v, <a href="/A220364/b220364.txt">Table of n, a(n) for n = 1..156</a>

%t fQ[n_] := Mod[Plus @@ IntegerDigits[36^n], n] == 0; k = 1; lst = {}; While[k < 30001, If[ fQ@ k, AppendTo[lst, k]; Print[k]]; k++]; lst

%o (PARI) is(n)=sumdigits(36^n)%n==0 \\ _Charles R Greathouse IV_, Dec 13 2012

%Y Cf. A220365.

%K fini,nonn,base

%O 1,2

%A _Robert G. Wilson v_, Dec 12 2012