OFFSET
1,2
COMMENTS
The prime numbers in A068807 belong to the sequence.
EXAMPLE
Divisors(8) = {1, 2, 4, 8} with sums of digits respectively 1, 2, 4, 8, powers of 2.
Divisors(13) = {1, 13} with sums of digits 1 and 4, powers of 2 .
Divisors(286) = {1, 2, 11, 13, 22, 26, 143, 286} with sums of digits respectively 1, 2, 2, 4, 4, 8, 16, powers of 2.
PROG
(Magma) sol:=[]; m:=1; for n in [1..850] do nr:=#[d: d in Divisors(n) | PrimeDivisors(&+Intseq(d)) eq [2]]; if nr eq #Divisors(n)-1 then sol[m]:=n; m:=m+1; end if; end for; sol;
(PARI) ispp(n) = (n==1) || (isprimepower(n, &p) && (p==2));
isok(n) = fordiv(n, d, if (!ispp(sumdigits(d)), return (0))); return (1); \\ Michel Marcus, Jun 12 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Marius A. Burtea, Jun 11 2019
STATUS
approved
