OFFSET
1,4
LINKS
Ray Chandler, Table of n, a(n) for n=1..50
MAPLE
A133952 := proc(n) local divs, k, i, a ; divs := sort(convert(numtheory[divisors](n!), list)) ; a := 0 ; for i from 1 to nops(divs) do k := op(i, divs) ; if not k-1 in divs and not k+1 in divs then a := a+1 ; fi ; od: RETURN(a) ; end: for n from 1 do printf("%d, ", A133952(n)) ; od: # R. J. Mathar, Oct 19 2007
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Sep 30 2007
EXTENSIONS
Corrected and extended by R. J. Mathar, Oct 19 2007
a(26)-a(35) from Ray Chandler, May 28 2008
a(36)-a(50) from Ray Chandler, Jun 20 2008
STATUS
approved