OFFSET
1,1
COMMENTS
A002110(138) has 327 digits.
What is the minimum value of a(n) - a(n-1)?
MATHEMATICA
Select[Range@ 10000, Divisible[Product[Prime@ k, {k, #}], Sum[Prime[k]^3, {k, #}]] &] (* Michael De Vlieger, Nov 28 2015 *)
PROG
(PARI) for(n=1, 11000, if(prod(k=1, n, prime(k)) % sum(k=1, n, prime(k)^3) == 0, print1(n, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan, Nov 27 2015
STATUS
approved