OFFSET
1,2
COMMENTS
The quotients are 1, 6, 8, 9, 13, 17, 16, 17, 17, 18, 17, 19, 25, 25, 26, 28, 20, 33, 33, 34, 34, 39, 40, 33, 42, 44, 46, 49.
EXAMPLE
734 is a term because the sum of the digits of 734^(2*734), 19084, is divisible by 734.
MATHEMATICA
Do[If[Mod[Plus @@ IntegerDigits[n^(2*n)], n] == 0, Print[n]], {n, 1, 10000}]
CROSSREFS
KEYWORD
base,hard,more,nonn
AUTHOR
Ryan Propper, Jul 11 2005
EXTENSIONS
a(22)-a(28) from Lars Blomberg, Jul 12 2011
STATUS
approved