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
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
KEYWORD
hard,more,nonn,base
AUTHOR
Amarnath Murthy and Shyam Sunder Gupta, Feb 16 2002
STATUS
approved