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,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

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.

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 *)

Crossrefs

Cf. A002110, A007504, A255217, A349738.

Sequence in context: A146108 A032841 A058221 * A146122 A263457 A146121

Adjacent sequences: A349731 A349732 A349733 * A349735 A349736 A349737

Keyword

nonn

Author

J. M. Bergot and Robert Israel, Nov 28 2021

Status

approved