A355332 Numbers k such that k | A020696(k) and (k+1) | A020696(k+1).
1, 201824, 227799, 313599, 395199, 544824, 638000, 654975, 799799, 862784, 1056159, 1204280, 1269729, 1447550, 1890944, 2276351, 2460975, 2481115, 2781999, 2821272, 3348224, 3382379, 3403700, 3832191, 3864575, 3956120, 5142500, 5961950, 6116175, 6401024, 7050120
Offset: 1
Keywords
Examples
1 is a term since A020696(1) = 2 is divisible by 1 and A020696(2) = 6 is divisible 2.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..2000
Programs
-
Mathematica
q[n_] := Divisible[Times @@ (Divisors[n] + 1), n]; Select[Range[10^6], q[#] && q[#+1] &]
-
PARI
f(n) = my(d = divisors(n)); prod(i=1, #d, d[i]+1); \\ A020696 isok(k) = !(f(k) % k) && !(f(k+1) % (k+1)); \\ Michel Marcus, Jun 30 2022
Comments