OFFSET
1,2
COMMENTS
EXAMPLE
The divisors of 4295098369, expressed in base 2 and listed in ascending order as 1, 10000000000000001, 100000000000000100000000000000001, contain 1, 2 and 3, "1" digits, respectively.
PROG
(Magma) Set(Sort([1] cat [n: n in [2..1000000] | [&+Intseq(d, 2): d in Divisors(n)] eq [1..NumberOfDivisors(n)] and #(PrimeDivisors(n)) eq 1]))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 25 2015
STATUS
approved