|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
fini,nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|