OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..2000
MAPLE
filter:= proc(n) local q, t, p, i, w, F;
F:= ifactors(n+1)[2];
for q in F do
p:= q[1];
t:= 0:
for i from 1 do
w:= floor(n/p^i);
if w = 0 then return false fi;
t:= t+w;
if t >= 11*q[2] then break fi;
od;
od;
true
end proc:
select(filter, [$1..1000]); # Robert Israel, Jul 01 2018
MATHEMATICA
Select[Range[250], IntegerQ[ #!/(# + 1)^11] &]
PROG
(PARI) { n=0; f=1; for (a=1, 3879, f*=a; if (f%(a + 1)^11 == 0, write("b061759.txt", n++, " ", a)) ) } \\ Harry J. Smith, Jul 27 2009
(Magma) [n: n in [1..250]| Factorial(n) mod (n+1)^11 eq 0]; // Vincenzo Librandi, Jul 02 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 21 2001
STATUS
approved