A220364 Numbers n that divide the sum of digits of 36^n.

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

Author

Robert G. Wilson v, Dec 12 2012

Keywords

• fini
• nonn
• base

Links

• Robert G. Wilson v, Table of n, a(n) for n = 1..156

Crossrefs

Cf. A220365.

Programs

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

PARI

is(n)=sumdigits(36^n)%n==0 \\ Charles R Greathouse IV, Dec 13 2012