A264897 Integers n such that A002110(n) is divisible by A098999(n).
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
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range@ 10000, Divisible[Product[Prime@ k, {k, #}], Sum[Prime[k]^3, {k, #}]] &] (* Michael De Vlieger, Nov 28 2015 *)
-
PARI
for(n=1, 11000, if(prod(k=1, n, prime(k)) % sum(k=1, n, prime(k)^3) == 0, print1(n, ", ")))
Comments