A349734 Numbers k such that A255217(k) divides A007504(k).
2, 5, 15, 17, 20, 25, 26, 33, 37, 45, 49, 51, 71, 87, 88, 91, 105, 111, 121, 127, 173, 175, 199, 203, 213, 221, 262, 271, 287, 305, 307, 319, 324, 329, 368, 377, 410, 411, 415, 439, 445, 455, 463, 467, 468, 473, 547, 558, 561, 567, 585, 589, 591, 614, 651, 661, 663, 665, 670, 673, 743, 761, 765
Offset: 1
Keywords
Examples
a(2) = 5 is a term because A255217(5) = 2*3*5*7*11 mod (2+3+5+7+11) = 14 divides 2+3+5+7+11 = 28.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
P:= 1: S:= 0: p:= 1: count:= 0: R:= NULL: for n from 1 while count < 100 do p:= nextprime(p); P:= P*p; S:= S+p; r:= P mod S; if r = 0 then next fi; v:= S mod r; if v = 0 then count:= count+1; R:= R,n; fi od: R; -
Mathematica
Select[Range[1000], (m = Mod[Times @@ (p = Prime[Range[#]]), Plus @@ p]) > 0 && Divisible[Plus @@ p, m] &] (* Amiram Eldar, Nov 28 2021 *)