A378055 Numbers k such that k | A378053(k) and (k+1) | A378053(k+1).

638000, 13466816, 14753024, 16092999, 19494189, 38137749, 63668079, 80061344, 86119704, 107232255, 112375899, 121550624, 127205000, 154466675, 294147854, 391738599, 553140224, 561712095, 682199595, 728999999, 871651143, 879207615, 911062844, 920985624, 1017609999

Offset: 1

Author

Amiram Eldar, Nov 15 2024

Keywords

• nonn

Crossrefs

Intersection of A355332 and A377949.

Subsequence of A378054.

Cf. A020696, A377484, A378053, A378059.

Programs

Mathematica

q[n_] := q[n] = And @@ Divisible[{Times @@ ((d = Divisors[n]) + 1), Times @@ (Rest@d - 1)}, n]; Select[Range[2*10^7], q[#] && q[# + 1] &]

PARI

is1(k) = if(k == 1, 1, my(d = divisors(k)); !(gcd(prod(k=1, #d, d[k]+1), prod(k=2, #d, d[k]-1)) % k));
lista(kmax) = {my(q1 = is1(1), q2); for(k = 2, kmax, q2 = is1(k); if(q1 && q2, print1(k-1, ", ")); q1 = q2);}