|
|
|
|
138, 163, 873, 1054, 1079, 1604, 1825, 1990, 2079, 2493, 2509, 2810, 2950, 3494, 3800, 3910, 4300, 4462, 4470, 4564, 4593, 4957, 5140, 5450, 5558, 5572, 5581, 5834, 6391, 6792, 6969, 7444, 7892, 8321, 8530, 8581, 9254, 9299, 9522, 9832, 9847, 10082, 10850
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
What is the minimum value of a(n) - a(n-1)?
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|