OFFSET
1,2
MATHEMATICA
Select[Range[200], DivisorSigma[0, #/2^IntegerExponent[#, 2]] == PrimeOmega[2*#] &] (* Amiram Eldar, Mar 26 2024 *)
PROG
(Magma) [k: k in [1..200] | #Divisors(4*k)-#Divisors(2*k) eq
(2*k eq 1 select 0 else &+[p[2]: p in Factorization(2*k)])];
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Mar 26 2024
STATUS
approved