OFFSET
1,5
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..807
MATHEMATICA
Table[ Length[ Union[ Table[ Floor[w!/j], {j, 1, w!}]]] - DivisorSigma[0, w! ], {w, 1, 11}]
(* Second program: *)
Array[Floor@ Sqrt[4 # + 1] - 1 - DivisorSigma[0, #] &[#!] &, 27] (* Michael De Vlieger, Dec 13 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 27 2002
EXTENSIONS
Extended by Robert G. Wilson v, Dec 02 2002
a(11) corrected and terms a(12) onward added by Max Alekseyev, Feb 12 2012
STATUS
approved