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,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

Cf. A220365.

Sequence in context: A274836 A322783 A014281 * A243902 A086865 A258274

Adjacent sequences: A220361 A220362 A220363 * A220365 A220366 A220367

Keyword

fini,nonn,base

Author

Robert G. Wilson v, Dec 12 2012

Status

approved