login
A126076
Numbers such that the sum of the factorials of the digits of the cube is a square.
2
1, 7, 10, 36, 54, 62, 600, 658, 692, 823, 888, 907, 1200, 1389, 1898, 2100, 2171, 2824, 3177, 3344, 3711, 3938, 4680, 5029, 5771, 6737, 6787, 6813, 7517, 9600, 9955, 10436, 11356, 12169, 12867, 12967, 13105, 13588, 13879, 14707, 14867, 15400, 15513
OFFSET
1,2
LINKS
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
Sequence in context: A119169 A095756 A241251 * A341736 A258284 A099579
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