OFFSET
1,2
COMMENTS
It can be shown that this is a subsequence of A028982.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
sdcdQ[n_]:=Module[{d=Divisors[n]}, CoprimeQ[Total[d^2], Total[d^3]]]; Select[ Range[ 20000], sdcdQ] (* Harvey P. Dale, Apr 09 2018 *)
PROG
(PARI) isok(n) = gcd(sigma(n, 2), sigma(n, 3)) == 1; \\ Michel Marcus, Sep 24 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved