OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..949
EXAMPLE
a(4)=36, 36^3 = 46656, (4! + 6! + 6! + 5! + 6!) = 2304 = 48^2.
MAPLE
a:=proc(n) local nn: nn:=convert(n^3, base, 10): if type(sqrt(add(nn[j]!, j=1..nops(nn))), integer)=true then n else fi end: seq(a(n), n=1..20000); # Emeric Deutsch, Mar 06 2007
MATHEMATICA
Select[Range[20000], IntegerQ[Sqrt[Total[IntegerDigits[#^3]!]]]&] (* Vincenzo Librandi, Mar 29 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Yalcin Aktar, Mar 02 2007
EXTENSIONS
More terms from Emeric Deutsch, Mar 06 2007
Name changed by Franklin T. Adams-Watters, Mar 29 2014
STATUS
approved