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

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, 50, 51, 52, 55, 56, 60, 73, 74, 78, 96, 123, 124, 125, 126, 128, 129, 130, 133, 134, 138, 146, 147, 148, 151, 152, 156, 169, 170, 174, 192, 242, 243, 244, 247, 248, 252, 265

Offset

0,1

Links

Table of n, a(n) for n=0..61.

Formula

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

Example

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

Mathematica

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 *)

Crossrefs

Cf. A066847.

Sequence in context: A063713 A026462 A039230 * A037357 A191842 A299544

Adjacent sequences: A111219 A111220 A111221 * A111223 A111224 A111225

Keyword

easy,nonn

Author

Paolo P. Lava and Giorgio Balzarotti, Oct 26 2005

Extensions

Extended by Ray Chandler, Nov 01 2005

Status

approved