OFFSET
2,1
COMMENTS
All the terms of the sequence appear to be prime or twice a prime.
EXAMPLE
5 is the smallest k such that 3, 4, 5 are divisors of k!.
MATHEMATICA
nn = 2500; pp = Union[Flatten[Table[n^i, {i, Prime[Range[PrimePi[Log[2, nn]]]]}, {n, 2, nn^(1/i)}]]]; Table[f = n*(n^2 - 1); m = 1; While[Mod[m!, f] > 0, m++]; m, {n, pp}] (* T. D. Noe, Oct 15 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robin Garcia, Oct 10 2012
STATUS
approved