This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A220364 #13 Dec 14 2012 09:45:59 %S A220364 1,2,3,4,9,18,45,117,189,279,297,414,441,612,738,855,1278,1836,1863, %T A220364 2223,2736,3321,3519,5400,5472,5661,5751,6039,7074,8055,8397,8496, %U A220364 8523,9207,9576,11223,12087,13023,13095,15804,16983,17154,20637,21771,21942,23967 %N A220364 Numbers n that divide the sum of digits of 36^n. %H A220364 Robert G. Wilson v, <a href="/A220364/b220364.txt">Table of n, a(n) for n = 1..156</a> %t A220364 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 A220364 (PARI) is(n)=sumdigits(36^n)%n==0 \\ _Charles R Greathouse IV_, Dec 13 2012 %Y A220364 Cf. A220365. %K A220364 fini,nonn,base %O A220364 1,2 %A A220364 _Robert G. Wilson v_, Dec 12 2012