OFFSET
1,1
COMMENTS
All terms are even.
a(8) >= 3.5*10^6. - David A. Corneth, Sep 02 2021
a(8) >= 5*10^6. - Michel Marcus, Sep 10 2021
a(8) > 2.5*10^8. - Martin Ehrenstein, Sep 23 2021
LINKS
Anudeex Shetty, Python program for A347422
EXAMPLE
For 24, the number of divisors is 8 (1, 2, 3, 4, 6, 8, 12, 24), the number of pairs of prime numbers summing to 24 is 3: (5, 19), (7, 17), (11, 13), and 3*8=24, so 24 is a term.
Similarly, for 226080, the number of divisors is 72, and the number of pairs of prime numbers summing to 226080 is 3140. And 72*3140 = 226080, so 226080 is a term.
MATHEMATICA
Select[Range[12000], IntegerQ[(r = #/DivisorSigma[0, #])] && r == Length @ IntegerPartitions[#, {2}, Select[Range[#], PrimeQ]] &] (* Amiram Eldar, Sep 02 2021 *)
PROG
(PARI) f(n) = my(s); forprime(q=2, n\2, s+=isprime(n-q)); s; \\ A061358
isok(k) = my(x = k/numdiv(k)); (denominator(x)==1) && (f(k) == x); \\ Michel Marcus, Sep 10 2021
CROSSREFS
KEYWORD
nonn,hard,more,less
AUTHOR
Anudeex Shetty and Nivesh Raj, Sep 02 2021
STATUS
approved