A175169 Numbers k that divide the sum of digits of 2^k.

1, 2, 5, 70

Offset

1,2

Comments

No other terms <= 200000. - Harvey P. Dale, Dec 16 2010

No other terms <= 1320000. - Robert G. Wilson v, Dec 18 2010

There are almost certainly no further terms.

Links

Table of n, a(n) for n=1..4.

Mathematica

Select[Range[200000], Divisible[Total[IntegerDigits[2^#]], #]&]
(* Harvey P. Dale, Dec 16 2010 *)

Prog

(PARI) is(n)=sumdigits(2^n)%n==0 \\ Charles R Greathouse IV, Sep 06 2016

Crossrefs

Sum of digits of k^n mod n: (k=2) A000079, A001370, A175434, A175169; (k=3) A000244, A004166, A175435, A067862; (k=5) A000351, A066001, A175456; (k=6) A000400, A066002, A175457, A067864; (k=7) A000420, A066003, A175512, A067863; (k=8) A062933; (k=13) A001022, A175527, A175528, A175525; (k=21) A175589; (k=167) A175558, A175559, A175560, A175552.

Sequence in context: A333165 A133004 A321602 * A066933 A132496 A100009

Adjacent sequences: A175166 A175167 A175168 * A175170 A175171 A175172

Keyword

nonn,base

Author

N. J. A. Sloane, Dec 03 2010

Status

approved