OFFSET
2,1
COMMENTS
a(21) <= 328823468719, a(22) <= 1542201899569, a(23) <= 9325753929619. - Donovan Johnson, Sep 22 2013
EXAMPLE
MATHEMATICA
L = {}; Do[i = 1; While[ ! ((Plus @@ Divisors[i + j! ] == j! + Plus @@ Divisors[i]) && ! PrimeQ[i]), i++ ]; L = Append[L, i], {j, 2, 13}]; L (from Vit Planocka)
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Labos Elemer, May 29 2000
EXTENSIONS
More terms from Vit Planocka (planocka(AT)mistral.cz), Sep 22 2003
a(14)-a(19) from Donovan Johnson, Nov 30 2008
a(20) from Donovan Johnson, Sep 19 2013
STATUS
approved