OFFSET
1,2
EXAMPLE
648 is a term because the sum of the digits in (648!)^2, 12312, is divisible by 648.
MATHEMATICA
Do[If[Mod[Plus @@ IntegerDigits[(n!)^2], n] == 0, Print[n]], {n, 1, 10000}]
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Ryan Propper, Jul 11 2005
EXTENSIONS
a(22)-a(25) from Robert Gerbicz, Aug 24 2006
a(26)-a(34) from Donovan Johnson, Dec 13 2010
STATUS
approved