OFFSET
1,1
COMMENTS
If it exists, a(22) > 7*10^5. - Ivan N. Ianakiev, Apr 11 2022
EXAMPLE
122 is in the sequence since it has 4 divisors {1,2,61,122} and 4 Goldbach partitions (13,109), (19,103), (43,79), (61,61).
MATHEMATICA
Select[Range[332], DivisorSigma[0, #]==Length[Select[#-Prime[Range[PrimePi[#/2]]], PrimeQ]]&] (* Ivan N. Ianakiev, Apr 11 2022 *)
PROG
(PARI) nbgp(n) = my(s); forprime(q=2, n\2, s+=isprime(n-q)); s; \\ A061358
isok(k) = numdiv(k) == nbgp(k); \\ Michel Marcus, Apr 12 2022
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Wesley Ivan Hurt, Apr 02 2022
STATUS
approved