OFFSET
0,2
EXAMPLE
MATHEMATICA
seq[len_, kmax_] := Module[{s = Table[0, {len}], c = 0, k = 1, ind}, While[k < kmax && c < len, ind = DivisorSum[k, 1 &, PrimeQ[DigitCount[#, 2, 1]] &] + 1; If[ind <= len && s[[ind]] == 0, c++; s[[ind]] = k]; k++]; s]; seq[40, 10^6] (* Amiram Eldar, Jul 10 2023 *)
PROG
(Magma) fp:=func<n|IsPrime(Multiplicity(Intseq(n, 2), 1)) >; a:=[]; for n in [0..44] do k:= 1; while #[d:d in Divisors(k)|fp(d)] ne n do k:=k+1; end while; Append(~a, k); end for; a;
(PARI) a(n) = my(k=1); while (sumdiv(k, d, isprime(hammingweight(d))) != n, k++); k; \\ Michel Marcus, Jul 10 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Marius A. Burtea, Jul 08 2023
STATUS
approved