A062927 Numbers k such that k divides the sum of digits of 9^k.

1, 3, 6, 9, 27, 90, 108, 144, 243

Offset

1,2

Comments

Next term after 243, if it exists, is greater than 30000. - Ryan Propper, Jun 18 2005

No more terms < 1000000. - Lars Blomberg, May 05 2011

Links

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

Example

3 divides the sum of digits of 9^3 (i.e., 7 + 2 + 9 = 18), so 3 is a term.

Mathematica

Do[If[Mod[Plus @@ IntegerDigits[9^n, 10], n] == 0, Print[n]], {n, 1, 30000}] (* Ryan Propper, Jun 18 2005 *)
Select[Range[300], Divisible[Total[IntegerDigits[9^#]], #]&] (* Harvey P. Dale, Jun 03 2015 *)

Crossrefs

Sequence in context: A019461 A223556 A067862 * A349597 A178467 A193802

Adjacent sequences: A062924 A062925 A062926 * A062928 A062929 A062930

Keyword

hard,more,nonn,base

Author

Amarnath Murthy and Shyam Sunder Gupta, Feb 16 2002

Status

approved