OFFSET
1,1
EXAMPLE
MAPLE
isA031443 := proc(n) local d2 ; d2 := nops(convert(n, base, 2)) ; return( 2*wt(n) = d2 ) ; end proc ;
isA191401 := proc(n) local k ; if isA031443(n) then k := nops(convert(n, base, 2))/2 ; return( numtheory[bigomega](n) = k ) ; else false; end if; end proc:
for n from 1 to 3200 do if isA191401(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Jun 08 2011
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jun 01 2011
EXTENSIONS
Corrected by R. J. Mathar, Jun 08 2011
STATUS
approved