OFFSET
1,1
LINKS
Anders Hellström, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
Array[FactorInteger[1 + Product[Prime[# + k], {k, 0, 4}]][[-1, 1]] &, {31}] (* Michael De Vlieger, Aug 19 2015 *)
PROG
(PARI) gpf(n)=vecmax(factor(n)[, 1]);
first(m)=vector(m, i, gpf(1+prod(j=0, 4, prime(i+j))));
CROSSREFS
KEYWORD
nonn
AUTHOR
Anders Hellström, Aug 12 2015
STATUS
approved