OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
1 is in this sequence because d(1) = 1 is equal to 2^omega(1) + omega(1) = 2^0 + 0 = 1.
MATHEMATICA
Select[Range@ 432, Function[f, DivisorSigma[0, #] == 2^f + f]@ PrimeNu@ # &] (* Michael De Vlieger, May 04 2017 *)
PROG
(PARI) isok(n) = numdiv(n) == 2^omega(n) + omega(n); \\ Michel Marcus, May 07 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, May 04 2017
STATUS
approved