OFFSET
1,2
EXAMPLE
n=8: 8!=40320; radius=11, a(8)=0 because there are no primes in the neighborhood.
MATHEMATICA
{ta=Table[0, {1000}], u=1}; Do[s=Count[Table[PrimeQ[n!+i], {i, -Ceiling[Log[n! ]//N], Ceiling[Log[n! ]//N]}], True]; Print[{n, s}]; ta[[u]]=s; u=u+1, {n, 1, 1000}]; ta
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 14 2004
STATUS
approved