login
A220364
Numbers n that divide the sum of digits of 36^n.
2
1, 2, 3, 4, 9, 18, 45, 117, 189, 279, 297, 414, 441, 612, 738, 855, 1278, 1836, 1863, 2223, 2736, 3321, 3519, 5400, 5472, 5661, 5751, 6039, 7074, 8055, 8397, 8496, 8523, 9207, 9576, 11223, 12087, 13023, 13095, 15804, 16983, 17154, 20637, 21771, 21942, 23967
OFFSET
1,2
LINKS
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
Cf. A220365.
Sequence in context: A274836 A322783 A014281 * A243902 A086865 A258274
KEYWORD
fini,nonn,base
AUTHOR
Robert G. Wilson v, Dec 12 2012
STATUS
approved