OFFSET
1,2
COMMENTS
Numbers k such that k and k+1 are both in A355331.
Are there 3 consecutive integers in A355331?
There are no such 3 consecutive integers below 10^10. - Amiram Eldar, Oct 12 2023
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..2000
MATHEMATICA
q[n_] := Divisible[Times @@ (Divisors[n] + 1), n]; Select[Range[10^6], q[#] && q[#+1] &]
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jun 29 2022
STATUS
approved