OFFSET
1,2
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..156
MATHEMATICA
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
PROG
(PARI) is(n)=sumdigits(36^n)%n==0 \\ Charles R Greathouse IV, Dec 13 2012
CROSSREFS
KEYWORD
fini,nonn,base
AUTHOR
Robert G. Wilson v, Dec 12 2012
STATUS
approved