A111222 - OEIS

%I #8 Oct 12 2019 11:49:43

%S 4,5,6,7,8,9,10,11,12,14,15,16,19,20,24,27,28,29,30,32,33,34,37,38,42,

%T 50,51,52,55,56,60,73,74,78,96,123,124,125,126,128,129,130,133,134,

%U 138,146,147,148,151,152,156,169,170,174,192,242,243,244,247,248,252,265

%N Integers that can be expressed as the sum of 4 factorials.

%F n = a! + b! + c! + d! being a, b, c, d positive integers or zeros

%e Example: 0! + 1! + 3! + 4! = 1 + 1 + 6 + 24 = 32

%t nmax = 266; k = 1; s = 0; While[k! <= nmax, s += x^(k!); k++ ]; Select[Range[nmax], Coefficient[s^4, x, # ] > 0 &] (* _Ray Chandler_, Nov 01 2005 *)

%Y Cf. A066847.

%K easy,nonn

%O 0,1

%A _Paolo P. Lava_ and _Giorgio Balzarotti_, Oct 26 2005

%E Extended by _Ray Chandler_, Nov 01 2005