OFFSET
1,1
COMMENTS
Products of pairs of amicable numbers are members of this sequence.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..51 (terms below 10^11)
Passawan Noppakaew and Prapanpong Pongsriiam, Product of Some Polynomials and Arithmetic Functions, J. Int. Seq., Vol. 26 (2023), Article 23.9.1.
MATHEMATICA
q[k_] := DivisorSum[k, 1 &, # * (DivisorSigma[1, #] - #) == k &] > 1; Select[Range[23*10^5], q] (* Amiram Eldar, Jul 01 2025 *)
PROG
(PARI) isok(k) = {my(d = divisors(k, 1), c = 0); for(i = 1, #d, if(d[i][1] * (sigma(d[i][2]) - d[i][1]) == k, c++; if(c == 2, break))); c == 2; } \\ Amiram Eldar, Jul 01 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Naohiro Nomoto, May 18 2012
EXTENSIONS
a(9)-a(25) from Donovan Johnson, May 21 2012
STATUS
approved
